home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-08-24 | 54.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'HELP,'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 48 45 4c 50 2c 00 00 00 | 04 01 00 00 ff ff ff ff |HELP,...|........|
|00000010| 2c 00 00 00 00 fd ff ff | 00 00 00 00 60 04 00 00 |,.......|....`...|
|00000020| 00 01 00 00 00 00 00 00 | 24 00 00 00 44 49 52 24 |........|$...DIR$|
|00000030| 68 04 00 00 68 04 00 00 | 94 04 00 00 48 fd ff ff |h...h...|....H...|
|00000040| d0 f8 a3 79 d8 04 00 00 | 13 00 00 00 00 00 00 00 |...y....|........|
|00000050| 21 61 6c 6c 00 00 00 00 | 6c 09 00 00 48 fd ff ff |!all....|l...H...|
|00000060| 9c 1a 5a 7a 38 01 00 00 | 13 00 00 00 00 00 00 00 |..Zz8...|........|
|00000070| 21 66 69 6c 65 69 6f 00 | a4 0a 00 00 48 fd ff ff |!fileio.|....H...|
|00000080| 3e 60 e6 79 c3 00 00 00 | 13 00 00 00 00 00 00 00 |>`.y....|........|
|00000090| 21 67 72 61 70 68 69 63 | 73 00 00 00 68 0b 00 00 |!graphic|s...h...|
|000000a0| 48 fd ff ff 3f 20 ab 73 | d7 00 00 00 13 00 00 00 |H...? .s|........|
|000000b0| 00 00 00 00 21 69 6d 6d | 65 64 69 61 74 65 00 00 |....!imm|ediate..|
|000000c0| 40 0c 00 00 48 fd ff ff | 5a d2 58 7a 8c 00 00 00 |@...H...|Z.Xz....|
|000000d0| 13 00 00 00 00 00 00 00 | 21 72 65 73 74 00 00 00 |........|!rest...|
|000000e0| cc 0c 00 00 46 fd ff ff | ba 89 20 00 51 00 00 00 |....F...|.. .Q...|
|000000f0| 13 00 00 00 00 00 00 00 | 21 73 6f 75 6e 64 00 00 |........|!sound..|
|00000100| 20 0d 00 00 48 fd ff ff | 49 2a ab 73 79 01 00 00 | ...H...|I*.sy...|
|00000110| 13 00 00 00 00 00 00 00 | 21 73 74 72 75 63 74 66 |........|!structf|
|00000120| 6c 6f 77 00 9c 0e 00 00 | 48 fd ff ff 79 63 61 7a |low.....|H...ycaz|
|00000130| 8c 00 00 00 13 01 00 00 | 00 00 00 00 5b 42 5d 00 |........|....[B].|
|00000140| 34 11 00 00 48 fd ff ff | 9d 63 61 7a 8c 03 00 00 |4...H...|.caz....|
|00000150| 13 01 00 00 00 00 00 00 | 5b 43 5d 00 cc 4d 00 00 |........|[C]..M..|
|00000160| 48 fd ff ff 47 65 61 7a | 18 02 00 00 13 01 00 00 |H...Geaz|........|
|00000170| 00 00 00 00 5b 45 5d 00 | e4 57 00 00 48 fd ff ff |....[E].|.W..H...|
|00000180| 67 66 61 7a 84 00 00 00 | 13 01 00 00 00 00 00 00 |gfaz....|........|
|00000190| 5b 46 5d 00 38 5a 00 00 | 48 fd ff ff a3 66 61 7a |[F].8Z..|H....faz|
|000001a0| 4c 00 00 00 13 01 00 00 | 00 00 00 00 5b 48 5d 00 |L.......|....[H].|
|000001b0| b0 5b 00 00 48 fd ff ff | af 66 61 7a ec 00 00 00 |.[..H...|.faz....|
|000001c0| 13 01 00 00 00 00 00 00 | 5b 49 5d 00 d8 61 00 00 |........|[I]..a..|
|000001d0| 48 fd ff ff 30 67 61 7a | 0c 00 00 00 13 01 00 00 |H...0gaz|........|
|000001e0| 00 00 00 00 5b 4a 5d 00 | e4 61 00 00 48 fd ff ff |....[J].|.a..H...|
|000001f0| 37 67 61 7a 0c 00 00 00 | 13 01 00 00 00 00 00 00 |7gaz....|........|
|00000200| 5b 4b 5d 00 f0 61 00 00 | 48 fd ff ff 46 67 61 7a |[K]..a..|H...Fgaz|
|00000210| a0 01 00 00 13 01 00 00 | 00 00 00 00 5b 4c 5d 00 |........|....[L].|
|00000220| 78 6d 00 00 48 fd ff ff | 3a 68 61 7a a8 00 00 00 |xm..H...|:haz....|
|00000230| 13 01 00 00 00 00 00 00 | 5b 4d 5d 00 1c 73 00 00 |........|[M]..s..|
|00000240| 48 fd ff ff 9a 68 61 7a | 98 01 00 00 13 01 00 00 |H....haz|........|
|00000250| 00 00 00 00 5b 4f 5d 00 | 90 7b 00 00 48 fd ff ff |....[O].|.{..H...|
|00000260| 4d 69 61 7a 00 01 00 00 | 13 01 00 00 00 00 00 00 |Miaz....|........|
|00000270| 5b 50 5d 00 48 81 00 00 | 48 fd ff ff d6 69 61 7a |[P].H...|H....iaz|
|00000280| 2c 00 00 00 13 01 00 00 | 00 00 00 00 5b 51 5d 00 |,.......|....[Q].|
|00000290| f0 81 00 00 48 fd ff ff | e5 69 61 7a 88 01 00 00 |....H...|.iaz....|
|000002a0| 13 01 00 00 00 00 00 00 | 5b 52 5d 00 28 8d 00 00 |........|[R].(...|
|000002b0| 48 fd ff ff d8 6a 61 7a | 7c 01 00 00 13 01 00 00 |H....jaz||.......|
|000002c0| 00 00 00 00 5b 54 5d 00 | f4 96 00 00 48 fd ff ff |....[T].|....H...|
|000002d0| 78 6b 61 7a 48 00 00 00 | 13 01 00 00 00 00 00 00 |xkazH...|........|
|000002e0| 5b 55 5d 00 f8 97 00 00 | 48 fd ff ff 89 6b 61 7a |[U].....|H....kaz|
|000002f0| a4 00 00 00 13 01 00 00 | 00 00 00 00 5b 56 5d 00 |........|....[V].|
|00000300| 30 9b 00 00 48 fd ff ff | bd 6b 61 7a 14 01 00 00 |0...H...|.kaz....|
|00000310| 13 01 00 00 00 00 00 00 | 5b 41 5d 00 f0 a1 00 00 |........|[A].....|
|00000320| 48 fd ff ff 2e 6c 61 7a | ac 00 00 00 13 01 00 00 |H....laz|........|
|00000330| 00 00 00 00 5b 47 5d 00 | 8c a5 00 00 48 fd ff ff |....[G].|....H...|
|00000340| 7d 6c 61 7a 64 00 00 00 | 13 01 00 00 00 00 00 00 |}lazd...|........|
|00000350| 5b 4e 5d 00 b0 a7 00 00 | 48 fd ff ff a6 6c 61 7a |[N].....|H....laz|
|00000360| d8 01 00 00 13 01 00 00 | 00 00 00 00 5b 53 5d 00 |........|....[S].|
|00000370| 68 b2 00 00 48 fd ff ff | 8c 6d 61 7a dc 00 00 00 |h...H...|.maz....|
|00000380| 13 01 00 00 00 00 00 00 | 5b 44 5d 00 2c b8 00 00 |........|[D].,...|
|00000390| 48 fd ff ff e7 6d 61 7a | 8c 00 00 00 13 01 00 00 |H....maz|........|
|000003a0| 00 00 00 00 5b 57 5d 00 | 80 ba 00 00 48 fd ff ff |....[W].|....H...|
|000003b0| e5 a6 5b 7a 29 03 00 00 | 13 00 00 00 00 00 00 00 |..[z)...|........|
|000003c0| 21 61 62 6f 75 74 00 00 | ac bd 00 00 48 fd ff ff |!about..|....H...|
|000003d0| 49 26 a9 74 3f 03 00 00 | 03 00 00 00 00 00 00 00 |I&.t?...|........|
|000003e0| 21 66 69 6c 65 66 6f 72 | 6d 61 74 00 ec c0 00 00 |!filefor|mat.....|
|000003f0| 48 fd ff ff ee 3b 53 7a | 42 00 00 00 03 00 00 00 |H....;Sz|B.......|
|00000400| 00 00 00 00 21 43 6f 6e | 66 69 67 75 72 65 00 00 |....!Con|figure..|
|00000410| 30 c1 00 00 48 fd ff ff | f1 e8 58 7a 93 02 00 00 |0...H...|..Xz....|
|00000420| 13 00 00 00 00 00 00 00 | 21 66 75 6e 63 74 69 6f |........|!functio|
|00000430| 6e 73 00 00 c4 c3 00 00 | 48 ca ff ff 49 8e 53 7a |ns......|H...I.Sz|
|00000440| dd 0d 00 00 03 00 00 00 | 00 00 00 00 21 4c 6f 67 |........|....!Log|
|00000450| 6f 00 00 00 a4 d1 00 00 | 48 fd ff ff 50 9a 55 7a |o.......|H...P.Uz|
|00000460| c7 05 00 00 13 00 00 00 | 00 00 00 00 21 52 6f 6f |........|....!Roo|
|00000470| 74 31 00 00 6c d7 00 00 | 48 fd ff ff 4c b7 58 7a |t1..l...|H...L.Xz|
|00000480| 42 01 00 00 13 00 00 00 | 00 00 00 00 21 52 6f 6f |B.......|....!Roo|
|00000490| 74 00 00 00 44 41 54 41 | d8 04 00 00 49 6e 64 65 |t...DATA|....Inde|
|000004a0| 78 0a 23 54 61 62 6c 65 | 20 43 6f 6c 75 6d 6e 73 |x.#Table| Columns|
|000004b0| 20 37 0a 3c 41 42 53 3e | 0a 3c 41 43 53 3e 0a 3c | 7.<ABS>|.<ACS>.<|
|000004c0| 41 44 56 41 4c 3e 0a 3c | 41 4e 44 3e 0a 3c 41 50 |ADVAL>.<|AND>.<AP|
|000004d0| 50 45 4e 44 3e 0a 3c 41 | 53 43 3e 0a 3c 41 53 4e |PEND>.<A|SC>.<ASN|
|000004e0| 3e 0a 3c 41 54 4e 3e 0a | 3c 41 55 54 4f 3e 0a 3c |>.<ATN>.|<AUTO>.<|
|000004f0| 42 45 41 54 3e 0a 3c 42 | 45 41 54 53 3e 0a 3c 42 |BEAT>.<B|EATS>.<B|
|00000500| 47 45 54 3e 0a 3c 42 50 | 55 54 3e 0a 3c 43 41 4c |GET>.<BP|UT>.<CAL|
|00000510| 4c 3e 0a 3c 43 41 53 45 | 3e 0a 3c 43 48 41 49 4e |L>.<CASE|>.<CHAIN|
|00000520| 3e 0a 3c 43 48 52 24 3d | 3e 43 48 52 21 78 32 34 |>.<CHR$=|>CHR!x24|
|00000530| 3e 0a 3c 43 49 52 43 4c | 45 3e 0a 3c 43 4c 45 41 |>.<CIRCL|E>.<CLEA|
|00000540| 52 3e 0a 3c 43 4c 47 3e | 0a 3c 43 4c 4f 53 45 3e |R>.<CLG>|.<CLOSE>|
|00000550| 0a 3c 43 4c 53 3e 0a 43 | 4f 4c 4f 52 0a 3c 43 4f |.<CLS>.C|OLOR.<CO|
|00000560| 4c 4f 55 52 3e 0a 3c 43 | 4f 53 3e 0a 3c 43 4f 55 |LOUR>.<C|OS>.<COU|
|00000570| 4e 54 3e 0a 3c 44 41 54 | 41 3e 0a 3c 44 45 46 3e |NT>.<DAT|A>.<DEF>|
|00000580| 0a 3c 44 45 47 3e 0a 3c | 44 45 4c 45 54 45 3e 0a |.<DEG>.<|DELETE>.|
|00000590| 3c 44 49 4d 3e 0a 3c 44 | 49 56 3e 0a 3c 44 52 41 |<DIM>.<D|IV>.<DRA|
|000005a0| 57 3e 0a 3c 45 44 49 54 | 3e 0a 3c 45 4c 4c 49 50 |W>.<EDIT|>.<ELLIP|
|000005b0| 53 45 3e 0a 3c 45 4c 53 | 45 3e 0a 3c 45 4e 44 3e |SE>.<ELS|E>.<END>|
|000005c0| 0a 3c 45 4e 44 43 41 53 | 45 3e 0a 3c 45 4e 44 49 |.<ENDCAS|E>.<ENDI|
|000005d0| 46 3e 0a 3c 45 4e 44 50 | 52 4f 43 3e 0a 3c 45 4e |F>.<ENDP|ROC>.<EN|
|000005e0| 44 57 48 49 4c 45 3e 0a | 3c 45 4e 56 45 4c 4f 50 |DWHILE>.|<ENVELOP|
|000005f0| 45 3e 0a 3c 45 4f 46 3e | 0a 3c 45 4f 52 3e 0a 3c |E>.<EOF>|.<EOR>.<|
|00000600| 45 52 4c 3e 0a 3c 45 52 | 52 3e 0a 3c 45 52 52 4f |ERL>.<ER|R>.<ERRO|
|00000610| 52 3e 0a 3c 45 56 41 4c | 3e 0a 3c 45 58 50 3e 0a |R>.<EVAL|>.<EXP>.|
|00000620| 3c 45 58 54 3e 0a 3c 46 | 41 4c 53 45 3e 0a 3c 46 |<EXT>.<F|ALSE>.<F|
|00000630| 49 4c 4c 3e 0a 3c 46 4e | 3e 0a 3c 46 4f 52 3e 0a |ILL>.<FN|>.<FOR>.|
|00000640| 3c 47 43 4f 4c 3e 0a 3c | 47 45 54 3e 0a 3c 47 4f |<GCOL>.<|GET>.<GO|
|00000650| 53 55 42 3e 0a 3c 47 4f | 54 4f 3e 0a 3c 48 45 4c |SUB>.<GO|TO>.<HEL|
|00000660| 50 3e 0a 3c 48 49 4d 45 | 4d 3e 0a 3c 49 46 3e 0a |P>.<HIME|M>.<IF>.|
|00000670| 3c 49 4e 4b 45 59 3e 0a | 3c 49 4e 50 55 54 3e 0a |<INKEY>.|<INPUT>.|
|00000680| 3c 49 4e 53 54 41 4c 4c | 3e 0a 3c 49 4e 53 54 52 |<INSTALL|>.<INSTR|
|00000690| 3e 0a 3c 49 4e 54 3e 0a | 3c 4c 45 46 54 24 3d 3e |>.<INT>.|<LEFT$=>|
|000006a0| 4c 45 46 54 21 78 32 34 | 3e 0a 3c 4c 45 4e 3e 0a |LEFT!x24|>.<LEN>.|
|000006b0| 3c 4c 45 54 3e 0a 3c 4c | 49 42 52 41 52 59 3e 0a |<LET>.<L|IBRARY>.|
|000006c0| 3c 4c 49 4e 45 3e 0a 3c | 4c 49 53 54 3e 0a 3c 4c |<LINE>.<|LIST>.<L|
|000006d0| 49 53 54 4f 3e 0a 3c 4c | 4e 3e 0a 3c 4c 4f 41 44 |ISTO>.<L|N>.<LOAD|
|000006e0| 3e 0a 3c 4c 4f 43 41 4c | 3e 0a 3c 4c 4f 47 3e 0a |>.<LOCAL|>.<LOG>.|
|000006f0| 3c 4c 4f 4d 45 4d 3e 0a | 3c 4c 56 41 52 3e 0a 3c |<LOMEM>.|<LVAR>.<|
|00000700| 4d 49 44 24 3d 3e 4d 49 | 44 21 78 32 34 3e 0a 3c |MID$=>MI|D!x24>.<|
|00000710| 4d 4f 44 3e 0a 3c 4d 4f | 44 45 3e 0a 3c 4d 4f 55 |MOD>.<MO|DE>.<MOU|
|00000720| 53 45 3e 0a 3c 4d 4f 56 | 45 3e 0a 3c 4e 45 57 3e |SE>.<MOV|E>.<NEW>|
|00000730| 0a 3c 4e 45 58 54 3e 0a | 3c 4e 4f 54 3e 0a 3c 4f |.<NEXT>.|<NOT>.<O|
|00000740| 46 3e 0a 3c 4f 46 46 3e | 0a 3c 4f 4c 44 3e 0a 3c |F>.<OFF>|.<OLD>.<|
|00000750| 4f 4e 3e 0a 3c 4f 50 45 | 4e 49 4e 3e 0a 3c 4f 50 |ON>.<OPE|NIN>.<OP|
|00000760| 45 4e 4f 55 54 3e 0a 3c | 4f 50 45 4e 55 50 3e 0a |ENOUT>.<|OPENUP>.|
|00000770| 3c 4f 52 3e 0a 3c 4f 52 | 49 47 49 4e 3e 0a 3c 4f |<OR>.<OR|IGIN>.<O|
|00000780| 53 43 4c 49 3e 0a 3c 4f | 54 48 45 52 57 49 53 45 |SCLI>.<O|THERWISE|
|00000790| 3e 0a 3c 4f 56 45 52 4c | 41 59 3e 0a 3c 50 41 47 |>.<OVERL|AY>.<PAG|
|000007a0| 45 3e 0a 3c 50 49 3e 0a | 3c 50 4c 4f 54 3e 0a 3c |E>.<PI>.|<PLOT>.<|
|000007b0| 50 4f 49 4e 54 3e 0a 3c | 50 4f 53 3e 0a 3c 50 52 |POINT>.<|POS>.<PR|
|000007c0| 49 4e 54 3e 0a 3c 50 52 | 4f 43 3e 0a 3c 50 54 52 |INT>.<PR|OC>.<PTR|
|000007d0| 3e 0a 3c 51 55 49 54 3e | 0a 3c 52 41 44 3e 0a 3c |>.<QUIT>|.<RAD>.<|
|000007e0| 52 45 41 44 3e 0a 3c 52 | 45 43 54 41 4e 47 4c 45 |READ>.<R|ECTANGLE|
|000007f0| 3e 0a 3c 52 45 4d 3e 0a | 3c 52 45 4e 55 4d 42 45 |>.<REM>.|<RENUMBE|
|00000800| 52 3e 0a 3c 52 45 50 45 | 41 54 3e 0a 3c 52 45 50 |R>.<REPE|AT>.<REP|
|00000810| 4f 52 54 3e 0a 3c 52 45 | 53 54 4f 52 45 3e 0a 3c |ORT>.<RE|STORE>.<|
|00000820| 52 45 54 55 52 4e 3e 0a | 3c 52 49 47 48 54 24 3d |RETURN>.|<RIGHT$=|
|00000830| 3e 52 49 47 48 54 21 78 | 32 34 3e 0a 3c 52 4e 44 |>RIGHT!x|24>.<RND|
|00000840| 3e 0a 3c 52 55 4e 3e 0a | 3c 53 41 56 45 3e 0a 3c |>.<RUN>.|<SAVE>.<|
|00000850| 53 47 4e 3e 0a 3c 53 49 | 4e 3e 0a 3c 53 4f 55 4e |SGN>.<SI|N>.<SOUN|
|00000860| 44 3e 0a 3c 53 50 43 3e | 0a 3c 53 51 52 3e 0a 3c |D>.<SPC>|.<SQR>.<|
|00000870| 53 54 45 50 3e 0a 3c 53 | 54 45 52 45 4f 3e 0a 3c |STEP>.<S|TEREO>.<|
|00000880| 53 54 4f 50 3e 0a 3c 53 | 54 52 24 3d 3e 53 54 52 |STOP>.<S|TR$=>STR|
|00000890| 21 78 32 34 3e 0a 3c 53 | 54 52 49 4e 47 24 3d 3e |!x24>.<S|TRING$=>|
|000008a0| 53 54 52 49 4e 47 21 78 | 32 34 3e 0a 3c 53 55 4d |STRING!x|24>.<SUM|
|000008b0| 3e 0a 3c 53 55 4d 4c 45 | 4e 3e 0a 3c 53 57 41 50 |>.<SUMLE|N>.<SWAP|
|000008c0| 3e 0a 3c 53 59 53 3e 0a | 3c 54 41 42 3e 0a 3c 54 |>.<SYS>.|<TAB>.<T|
|000008d0| 41 4e 3e 0a 3c 54 45 4d | 50 4f 3e 0a 3c 54 48 45 |AN>.<TEM|PO>.<THE|
|000008e0| 4e 3e 0a 3c 54 49 4d 45 | 3e 0a 3c 54 49 4e 54 3e |N>.<TIME|>.<TINT>|
|000008f0| 0a 3c 54 4f 3e 0a 3c 54 | 4f 50 3e 0a 3c 54 52 41 |.<TO>.<T|OP>.<TRA|
|00000900| 43 45 3e 0a 3c 54 52 55 | 45 3e 0a 3c 54 57 49 4e |CE>.<TRU|E>.<TWIN|
|00000910| 3e 0a 3c 54 57 49 4e 4f | 3e 0a 3c 55 4e 54 49 4c |>.<TWINO|>.<UNTIL|
|00000920| 3e 0a 3c 55 53 52 3e 0a | 3c 56 41 4c 3e 0a 3c 56 |>.<USR>.|<VAL>.<V|
|00000930| 44 55 3e 0a 3c 56 4f 49 | 43 45 3e 0a 3c 56 4f 49 |DU>.<VOI|CE>.<VOI|
|00000940| 43 45 53 3e 0a 3c 57 41 | 49 54 3e 0a 3c 57 48 45 |CES>.<WA|IT>.<WHE|
|00000950| 4e 3e 0a 3c 57 48 49 4c | 45 3e 0a 3c 57 49 44 54 |N>.<WHIL|E>.<WIDT|
|00000960| 48 3e 0a 23 45 6e 64 54 | 61 62 6c 65 44 41 54 41 |H>.#EndT|ableDATA|
|00000970| 38 01 00 00 49 6e 70 75 | 74 2f 4f 75 74 70 75 74 |8...Inpu|t/Output|
|00000980| 0a 7b 66 2f 3a 54 65 72 | 6d 69 6e 61 6c 20 49 2f |.{f/:Ter|minal I/|
|00000990| 4f 7d 0a 23 69 6e 64 65 | 6e 74 20 32 0a 23 54 61 |O}.#inde|nt 2.#Ta|
|000009a0| 62 6c 65 20 43 6f 6c 75 | 6d 6e 73 20 33 0a 3c 47 |ble Colu|mns 3.<G|
|000009b0| 45 54 3e 0a 3c 47 45 54 | 24 3d 3e 47 45 54 3e 0a |ET>.<GET|$=>GET>.|
|000009c0| 3c 49 4e 50 55 54 3e 0a | 3c 49 4e 4b 45 59 3e 0a |<INPUT>.|<INKEY>.|
|000009d0| 3c 49 4e 4b 45 59 24 3d | 3e 49 4e 4b 45 59 3e 0a |<INKEY$=|>INKEY>.|
|000009e0| 3c 50 52 49 4e 54 3e 0a | 3c 52 45 41 44 3e 0a 3c |<PRINT>.|<READ>.<|
|000009f0| 53 50 43 3e 0a 3c 54 41 | 42 3e 0a 23 45 6e 64 54 |SPC>.<TA|B>.#EndT|
|00000a00| 61 62 6c 65 0a 23 69 6e | 64 65 6e 74 0a 0a 7b 66 |able.#in|dent..{f|
|00000a10| 2f 3a 46 69 6c 65 20 49 | 2f 4f 7d 0a 23 69 6e 64 |/:File I|/O}.#ind|
|00000a20| 65 6e 74 20 32 0a 23 54 | 61 62 6c 65 20 43 6f 6c |ent 2.#T|able Col|
|00000a30| 75 6d 6e 73 20 33 0a 3c | 42 47 45 54 3e 0a 3c 42 |umns 3.<|BGET>.<B|
|00000a40| 50 55 54 3e 0a 3c 43 4c | 4f 53 45 3e 0a 3c 45 4f |PUT>.<CL|OSE>.<EO|
|00000a50| 46 3e 0a 3c 45 58 54 3e | 0a 3c 47 45 54 3e 0a 3c |F>.<EXT>|.<GET>.<|
|00000a60| 49 4e 50 55 54 3e 0a 3c | 4f 50 45 4e 49 4e 20 3e |INPUT>.<|OPENIN >|
|00000a70| 0a 3c 4f 50 45 4e 4f 55 | 54 3e 0a 3c 4f 50 45 4e |.<OPENOU|T>.<OPEN|
|00000a80| 55 50 20 3e 0a 3c 50 52 | 49 4e 54 3e 0a 3c 50 54 |UP >.<PR|INT>.<PT|
|00000a90| 52 3e 0a 23 45 6e 64 54 | 61 62 6c 65 0a 23 69 6e |R>.#EndT|able.#in|
|00000aa0| 64 65 6e 74 44 41 54 41 | c3 00 00 00 47 72 61 70 |dentDATA|....Grap|
|00000ab0| 68 69 63 73 0a 23 54 61 | 62 6c 65 20 43 6f 6c 75 |hics.#Ta|ble Colu|
|00000ac0| 6d 6e 73 20 33 0a 3c 43 | 49 52 43 4c 45 3e 0a 3c |mns 3.<C|IRCLE>.<|
|00000ad0| 43 4c 47 3e 0a 3c 43 4c | 53 3e 0a 43 4f 4c 4f 52 |CLG>.<CL|S>.COLOR|
|00000ae0| 0a 3c 43 4f 4c 4f 55 52 | 3e 0a 3c 44 52 41 57 3e |.<COLOUR|>.<DRAW>|
|00000af0| 0a 3c 45 4c 4c 49 50 53 | 45 3e 0a 3c 46 49 4c 4c |.<ELLIPS|E>.<FILL|
|00000b00| 3e 0a 3c 47 43 4f 4c 3e | 0a 3c 4c 49 4e 45 3e 0a |>.<GCOL>|.<LINE>.|
|00000b10| 3c 4d 4f 44 45 3e 0a 3c | 4d 4f 56 45 3e 0a 3c 4f |<MODE>.<|MOVE>.<O|
|00000b20| 52 49 47 49 4e 3e 0a 3c | 50 4c 4f 54 3e 0a 3c 50 |RIGIN>.<|PLOT>.<P|
|00000b30| 4f 49 4e 54 3e 0a 3c 50 | 52 49 4e 54 3e 0a 3c 52 |OINT>.<P|RINT>.<R|
|00000b40| 45 43 54 41 4e 47 4c 45 | 3e 0a 3c 54 49 4e 54 3e |ECTANGLE|>.<TINT>|
|00000b50| 0a 3c 56 44 55 3e 0a 3c | 57 41 49 54 3e 0a 23 45 |.<VDU>.<|WAIT>.#E|
|00000b60| 6e 64 54 61 62 6c 65 00 | 44 41 54 41 d7 00 00 00 |ndTable.|DATA....|
|00000b70| 49 6d 6d 65 64 69 61 74 | 65 0a 54 68 65 73 65 20 |Immediat|e.These |
|00000b80| 63 61 6e 20 6f 6e 6c 79 | 20 62 65 20 75 73 65 64 |can only| be used|
|00000b90| 20 66 72 6f 6d 0a 42 41 | 53 49 43 27 73 20 7b 66 | from.BA|SIC's {f|
|00000ba0| 63 6f 64 65 3a 22 5c 3e | 22 7d 20 70 72 6f 6d 70 |code:"\>|"} promp|
|00000bb0| 74 2e 0a 0a 23 54 61 62 | 6c 65 20 43 6f 6c 75 6d |t...#Tab|le Colum|
|00000bc0| 6e 73 20 33 0a 3c 41 50 | 50 45 4e 44 3e 0a 3c 41 |ns 3.<AP|PEND>.<A|
|00000bd0| 55 54 4f 3e 0a 3c 44 45 | 4c 45 54 45 3e 0a 3c 45 |UTO>.<DE|LETE>.<E|
|00000be0| 44 49 54 3e 0a 3c 48 45 | 4c 50 3e 0a 3c 4c 49 53 |DIT>.<HE|LP>.<LIS|
|00000bf0| 54 3e 0a 3c 4c 49 53 54 | 4f 3e 0a 3c 4c 4f 41 44 |T>.<LIST|O>.<LOAD|
|00000c00| 3e 0a 3c 4c 56 41 52 3e | 0a 3c 4e 45 57 3e 0a 3c |>.<LVAR>|.<NEW>.<|
|00000c10| 4f 4c 44 3e 0a 3c 52 45 | 4e 55 4d 42 45 52 3e 0a |OLD>.<RE|NUMBER>.|
|00000c20| 3c 53 41 56 45 3e 0a 3c | 54 57 49 4e 3e 0a 3c 54 |<SAVE>.<|TWIN>.<T|
|00000c30| 57 49 4e 4f 3e 0a 23 45 | 6e 64 54 61 62 6c 65 00 |WINO>.#E|ndTable.|
|00000c40| 44 41 54 41 8c 00 00 00 | 52 65 73 74 0a 23 54 61 |DATA....|Rest.#Ta|
|00000c50| 62 6c 65 20 43 6f 6c 75 | 6d 6e 73 20 34 0a 3c 41 |ble Colu|mns 4.<A|
|00000c60| 44 56 41 4c 3e 0a 3c 43 | 4f 55 4e 54 3e 0a 3c 48 |DVAL>.<C|OUNT>.<H|
|00000c70| 49 4d 45 4d 3e 0a 3c 4c | 4f 4d 45 4d 3e 0a 3c 4d |IMEM>.<L|OMEM>.<M|
|00000c80| 4f 55 53 45 3e 0a 3c 4f | 46 46 3e 0a 3c 4f 4e 3e |OUSE>.<O|FF>.<ON>|
|00000c90| 0a 3c 4f 53 43 4c 49 3e | 0a 3c 50 41 47 45 3e 0a |.<OSCLI>|.<PAGE>.|
|00000ca0| 3c 53 57 41 50 3e 0a 3c | 54 49 4d 45 3e 0a 3c 54 |<SWAP>.<|TIME>.<T|
|00000cb0| 49 4e 54 3e 0a 3c 54 4f | 50 3e 0a 3c 57 49 44 54 |INT>.<TO|P>.<WIDT|
|00000cc0| 48 3e 0a 23 45 6e 64 54 | 61 62 6c 65 44 41 54 41 |H>.#EndT|ableDATA|
|00000cd0| 51 00 00 00 53 6f 75 6e | 64 0a 3c 42 45 41 54 3e |Q...Soun|d.<BEAT>|
|00000ce0| 0a 3c 42 45 41 54 53 3e | 0a 3c 45 4e 56 45 4c 4f |.<BEATS>|.<ENVELO|
|00000cf0| 50 45 3e 0a 3c 53 4f 55 | 4e 44 3e 0a 3c 53 54 45 |PE>.<SOU|ND>.<STE|
|00000d00| 52 45 4f 3e 0a 3c 54 45 | 4d 50 4f 3e 0a 3c 56 4f |REO>.<TE|MPO>.<VO|
|00000d10| 49 43 45 3e 0a 3c 56 4f | 49 43 45 53 3e 00 00 00 |ICE>.<VO|ICES>...|
|00000d20| 44 41 54 41 79 01 00 00 | 53 74 72 75 63 74 75 72 |DATAy...|Structur|
|00000d30| 65 2f 46 6c 6f 77 0a 23 | 54 61 62 6c 65 20 43 6f |e/Flow.#|Table Co|
|00000d40| 6c 75 6d 6e 73 20 34 0a | 3c 43 41 4c 4c 3e 0a 3c |lumns 4.|<CALL>.<|
|00000d50| 43 41 53 45 3e 0a 3c 43 | 48 41 49 4e 3e 0a 3c 43 |CASE>.<C|HAIN>.<C|
|00000d60| 4c 45 41 52 3e 0a 3c 44 | 41 54 41 3e 0a 3c 44 49 |LEAR>.<D|ATA>.<DI|
|00000d70| 4d 3e 0a 3c 45 4c 53 45 | 3e 0a 3c 44 45 46 3e 0a |M>.<ELSE|>.<DEF>.|
|00000d80| 3c 45 4e 44 3e 0a 3c 45 | 4e 44 43 41 53 45 3e 0a |<END>.<E|NDCASE>.|
|00000d90| 3c 45 4e 44 49 46 3e 0a | 3c 45 4e 44 50 52 4f 43 |<ENDIF>.|<ENDPROC|
|00000da0| 3e 0a 3c 45 4e 44 57 48 | 49 4c 45 3e 0a 3c 45 52 |>.<ENDWH|ILE>.<ER|
|00000db0| 52 4f 52 3e 0a 3c 46 4e | 3e 0a 3c 46 4f 52 3e 0a |ROR>.<FN|>.<FOR>.|
|00000dc0| 3c 47 4f 53 55 42 3e 0a | 3c 47 4f 54 4f 3e 0a 3c |<GOSUB>.|<GOTO>.<|
|00000dd0| 49 46 3e 0a 3c 49 4e 53 | 54 41 4c 4c 3e 0a 3c 4c |IF>.<INS|TALL>.<L|
|00000de0| 45 54 3e 0a 3c 4c 49 42 | 52 41 52 59 3e 0a 3c 4c |ET>.<LIB|RARY>.<L|
|00000df0| 4f 43 41 4c 3e 0a 3c 4e | 45 58 54 3e 0a 3c 4f 4e |OCAL>.<N|EXT>.<ON|
|00000e00| 3e 0a 3c 4f 54 48 45 52 | 57 49 53 45 3e 0a 3c 4f |>.<OTHER|WISE>.<O|
|00000e10| 56 45 52 4c 41 59 3e 0a | 3c 50 52 4f 43 3e 0a 3c |VERLAY>.|<PROC>.<|
|00000e20| 51 55 49 54 3e 0a 3c 52 | 45 4d 3e 0a 3c 52 45 50 |QUIT>.<R|EM>.<REP|
|00000e30| 45 41 54 3e 0a 3c 52 45 | 50 4f 52 54 3e 0a 3c 52 |EAT>.<RE|PORT>.<R|
|00000e40| 45 53 54 4f 52 45 3e 0a | 3c 52 45 54 55 52 4e 3e |ESTORE>.|<RETURN>|
|00000e50| 0a 3c 52 55 4e 3e 0a 3c | 53 54 4f 50 3e 0a 3c 53 |.<RUN>.<|STOP>.<S|
|00000e60| 59 53 3e 0a 3c 54 48 45 | 4e 3e 0a 3c 54 52 41 43 |YS>.<THE|N>.<TRAC|
|00000e70| 45 3e 0a 3c 55 4e 54 49 | 4c 3e 0a 3c 55 53 52 3e |E>.<UNTI|L>.<USR>|
|00000e80| 0a 3c 57 48 45 4e 3e 0a | 3c 57 48 49 4c 45 3e 0a |.<WHEN>.|<WHILE>.|
|00000e90| 23 45 6e 64 54 61 62 6c | 65 00 00 00 44 49 52 24 |#EndTabl|e...DIR$|
|00000ea0| 8c 00 00 00 8c 00 00 00 | 28 0f 00 00 48 ff ff ff |........|(...H...|
|00000eb0| 7b 8e 59 79 69 00 00 00 | 13 00 00 00 00 00 00 00 |{.Yyi...|........|
|00000ec0| 42 45 41 54 00 00 00 00 | 94 0f 00 00 48 ff ff ff |BEAT....|....H...|
|00000ed0| f3 9d 59 79 81 00 00 00 | 13 00 00 00 00 00 00 00 |..Yy....|........|
|00000ee0| 42 45 41 54 53 00 00 00 | 18 10 00 00 48 ff ff ff |BEATS...|....H...|
|00000ef0| 4d a6 59 79 7a 00 00 00 | 13 00 00 00 00 00 00 00 |M.Yyz...|........|
|00000f00| 42 47 45 54 00 00 00 00 | 94 10 00 00 48 ff ff ff |BGET....|....H...|
|00000f10| e4 bb 59 79 9e 00 00 00 | 13 00 00 00 00 00 00 00 |..Yy....|........|
|00000f20| 42 50 55 54 00 00 00 00 | 44 41 54 41 69 00 00 00 |BPUT....|DATAi...|
|00000f30| 42 45 41 54 0a 53 79 6e | 74 61 78 3a 0a 23 66 64 |BEAT.Syn|tax:.#fd|
|00000f40| 65 66 3b 77 72 61 70 20 | 6f 66 66 0a 20 20 78 20 |ef;wrap |off. x |
|00000f50| 3d 20 42 45 41 54 0a 23 | 66 3b 77 72 61 70 0a 0a |= BEAT.#|f;wrap..|
|00000f60| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 67 69 |This fun|ction gi|
|00000f70| 76 65 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ves the |current |
|00000f80| 6d 69 63 72 6f 62 65 61 | 74 20 6e 75 6d 62 65 72 |microbea|t number|
|00000f90| 2e 00 00 00 44 41 54 41 | 81 00 00 00 42 45 41 54 |....DATA|....BEAT|
|00000fa0| 53 0a 23 66 64 65 66 3a | 42 45 41 54 53 20 78 0a |S.#fdef:|BEATS x.|
|00000fb0| 20 20 09 53 65 74 20 74 | 68 65 20 6e 75 6d 62 65 | .Set t|he numbe|
|00000fc0| 72 20 6f 66 20 6d 69 63 | 72 6f 62 65 61 74 73 20 |r of mic|robeats |
|00000fd0| 69 6e 20 61 20 62 61 72 | 2e 0a 0a 23 66 64 65 66 |in a bar|...#fdef|
|00000fe0| 3a 78 20 3d 20 42 45 41 | 54 53 0a 20 20 09 47 69 |:x = BEA|TS. .Gi|
|00000ff0| 76 65 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ves the |current |
|00001000| 6e 75 6d 62 65 72 20 6f | 66 20 6d 69 63 72 6f 62 |number o|f microb|
|00001010| 65 61 74 73 2e 00 00 00 | 44 41 54 41 7a 00 00 00 |eats....|DATAz...|
|00001020| 42 47 45 54 0a 53 79 6e | 74 61 78 3a 0a 23 66 64 |BGET.Syn|tax:.#fd|
|00001030| 65 66 3b 77 72 61 70 20 | 6f 66 66 0a 20 20 78 20 |ef;wrap |off. x |
|00001040| 3d 20 42 47 45 54 23 63 | 68 61 6e 6e 65 6c 0a 23 |= BGET#c|hannel.#|
|00001050| 66 3b 77 72 61 70 0a 0a | 54 68 69 73 20 66 75 6e |f;wrap..|This fun|
|00001060| 63 74 69 6f 6e 20 67 69 | 76 65 73 20 74 68 65 20 |ction gi|ves the |
|00001070| 6e 65 78 74 20 62 79 74 | 65 20 66 72 6f 6d 20 74 |next byt|e from t|
|00001080| 68 65 20 73 70 65 63 69 | 66 69 65 64 20 66 69 6c |he speci|fied fil|
|00001090| 65 2e 00 00 44 41 54 41 | 9e 00 00 00 42 50 55 54 |e...DATA|....BPUT|
|000010a0| 0a 23 66 64 65 66 3a 42 | 50 55 54 23 63 68 61 6e |.#fdef:B|PUT#chan|
|000010b0| 6e 65 6c 2c 6e 75 6d 62 | 65 72 0a 20 20 09 70 75 |nel,numb|er. .pu|
|000010c0| 74 20 62 79 74 65 20 74 | 6f 20 6f 70 65 6e 20 66 |t byte t|o open f|
|000010d0| 69 6c 65 2e 0a 0a 23 66 | 64 65 66 3b 77 72 61 70 |ile...#f|def;wrap|
|000010e0| 20 6f 66 66 0a 42 50 55 | 54 23 63 68 61 6e 6e 65 | off.BPU|T#channe|
|000010f0| 6c 2c 73 74 72 69 6e 67 | 5b 3b 5d 0a 23 66 3b 77 |l,string|[;].#f;w|
|00001100| 72 61 70 0a 20 20 09 70 | 75 74 20 73 74 72 69 6e |rap. .p|ut strin|
|00001110| 67 20 74 6f 20 6f 70 65 | 6e 20 66 69 6c 65 2c 20 |g to ope|n file, |
|00001120| 77 69 74 68 5b 6f 75 74 | 5d 20 6e 65 77 6c 69 6e |with[out|] newlin|
|00001130| 65 2e 00 00 44 49 52 24 | 8c 03 00 00 8c 03 00 00 |e...DIR$|........|
|00001140| c0 14 00 00 48 fd ff ff | 02 fd aa 73 cb 00 00 00 |....H...|...s....|
|00001150| 13 00 00 00 00 00 00 00 | 63 61 6c 6c 30 00 00 00 |........|call0...|
|00001160| 8c 15 00 00 47 fd ff ff | bb 9b 0f cc a6 01 00 00 |....G...|........|
|00001170| 13 00 00 00 00 00 00 00 | 63 61 6c 6c 31 00 00 00 |........|call1...|
|00001180| 34 17 00 00 47 fd ff ff | f6 7c 8a cd fb 00 00 00 |4...G...|.|......|
|00001190| 13 00 00 00 00 00 00 00 | 63 61 6c 6c 32 00 00 00 |........|call2...|
|000011a0| 30 18 00 00 48 fd ff ff | e8 e2 60 7a 0a 07 00 00 |0...H...|..`z....|
|000011b0| 13 00 00 00 00 00 00 00 | 63 61 6c 6c 33 00 00 00 |........|call3...|
|000011c0| 3c 1f 00 00 46 fd ff ff | b0 b8 f2 cf 7e 08 00 00 |<...F...|....~...|
|000011d0| 33 00 00 00 00 00 00 00 | 63 61 6c 6c 34 00 00 00 |3.......|call4...|
|000011e0| bc 27 00 00 46 fd ff ff | 76 82 f2 cf 6f 02 00 00 |.'..F...|v...o...|
|000011f0| 33 00 00 00 00 00 00 00 | 63 61 6c 6c 63 72 65 61 |3.......|callcrea|
|00001200| 74 65 00 00 2c 2a 00 00 | 47 fd ff ff ab 1d 60 cf |te..,*..|G.....`.|
|00001210| 00 02 00 00 33 00 00 00 | 00 00 00 00 63 61 6c 6c |....3...|....call|
|00001220| 65 76 61 6c 00 00 00 00 | 2c 2c 00 00 47 fd ff ff |eval....|,,..G...|
|00001230| 04 34 60 cf f4 02 00 00 | 33 00 00 00 00 00 00 00 |.4`.....|3.......|
|00001240| 63 61 6c 6c 65 76 61 6c | 32 00 00 00 20 2f 00 00 |calleval|2... /..|
|00001250| 47 fd ff ff a8 41 0f cc | 72 05 00 00 33 00 00 00 |G....A..|r...3...|
|00001260| 00 00 00 00 63 61 6c 6c | 65 78 70 72 00 00 00 00 |....call|expr....|
|00001270| 94 34 00 00 47 fd ff ff | 9c e6 60 cf 28 06 00 00 |.4..G...|..`.(...|
|00001280| 33 00 00 00 00 00 00 00 | 63 61 6c 6c 66 70 61 64 |3.......|callfpad|
|00001290| 64 00 00 00 bc 3a 00 00 | 47 fd ff ff bb ce 60 cf |d....:..|G.....`.|
|000012a0| 57 02 00 00 33 00 00 00 | 00 00 00 00 63 61 6c 6c |W...3...|....call|
|000012b0| 66 70 73 71 72 74 00 00 | 14 3d 00 00 46 fd ff ff |fpsqrt..|.=..F...|
|000012c0| 65 78 f2 cf 23 02 00 00 | 33 00 00 00 00 00 00 00 |ex..#...|3.......|
|000012d0| 63 61 6c 6c 6c 76 62 6c | 6e 6b 00 00 38 3f 00 00 |calllvbl|nk..8?..|
|000012e0| 47 fd ff ff 4b 6a 0e cc | 90 04 00 00 33 00 00 00 |G...Kj..|....3...|
|000012f0| 00 00 00 00 63 61 6c 6c | 6d 61 74 63 68 00 00 00 |....call|match...|
|00001300| c8 43 00 00 47 fd ff ff | 69 d8 0e cc bd 01 00 00 |.C..G...|i.......|
|00001310| 33 00 00 00 00 00 00 00 | 63 61 6c 6c 73 74 72 61 |3.......|callstra|
|00001320| 63 63 00 00 88 45 00 00 | 48 ff ff ff 30 e9 59 79 |cc...E..|H...0.Yy|
|00001330| 26 02 00 00 13 00 00 00 | 00 00 00 00 43 41 4c 4c |&.......|....CALL|
|00001340| 00 00 00 00 b0 47 00 00 | 48 ff ff ff 2c 1b 5a 79 |.....G..|H...,.Zy|
|00001350| 90 00 00 00 13 00 00 00 | 00 00 00 00 43 41 53 45 |........|....CASE|
|00001360| 00 00 00 00 40 48 00 00 | 48 ff ff ff 38 2b 5a 79 |....@H..|H...8+Zy|
|00001370| a0 00 00 00 13 00 00 00 | 00 00 00 00 43 48 41 49 |........|....CHAI|
|00001380| 4e 00 00 00 e0 48 00 00 | 48 ff ff ff 37 40 5a 79 |N....H..|H...7@Zy|
|00001390| 85 00 00 00 13 00 00 00 | 00 00 00 00 43 48 52 21 |........|....CHR!|
|000013a0| 78 32 34 00 68 49 00 00 | 48 ff ff ff 4a ac 5a 79 |x24.hI..|H...J.Zy|
|000013b0| 61 00 00 00 13 00 00 00 | 00 00 00 00 43 49 52 43 |a.......|....CIRC|
|000013c0| 4c 45 00 00 cc 49 00 00 | 48 ff ff ff 51 50 5a 79 |LE...I..|H...QPZy|
|000013d0| 4c 00 00 00 13 00 00 00 | 00 00 00 00 43 4c 45 41 |L.......|....CLEA|
|000013e0| 52 00 00 00 18 4a 00 00 | 48 ff ff ff 90 58 5a 79 |R....J..|H....XZy|
|000013f0| 6e 00 00 00 13 00 00 00 | 00 00 00 00 43 4c 47 00 |n.......|....CLG.|
|00001400| 88 4a 00 00 48 ff ff ff | 1e 77 5a 79 81 00 00 00 |.J..H...|.wZy....|
|00001410| 13 00 00 00 00 00 00 00 | 43 4c 4f 53 45 00 00 00 |........|CLOSE...|
|00001420| 0c 4b 00 00 48 ff ff ff | 61 7b 5a 79 61 00 00 00 |.K..H...|a{Zya...|
|00001430| 13 00 00 00 00 00 00 00 | 43 4c 53 00 00 00 00 00 |........|CLS.....|
|00001440| 45 ff ff ff bb 93 00 f3 | 00 00 00 00 13 00 00 00 |E.......|........|
|00001450| 00 00 00 00 43 4f 4c 4f | 52 3e 43 4f 4c 4f 55 52 |....COLO|R>COLOUR|
|00001460| 00 00 00 00 70 4b 00 00 | 48 ff ff ff 58 89 5a 79 |....pK..|H...X.Zy|
|00001470| 6b 01 00 00 13 00 00 00 | 00 00 00 00 43 4f 4c 4f |k.......|....COLO|
|00001480| 55 52 00 00 dc 4c 00 00 | 48 ff ff ff 04 91 5a 79 |UR...L..|H.....Zy|
|00001490| 65 00 00 00 13 00 00 00 | 00 00 00 00 43 4f 53 00 |e.......|....COS.|
|000014a0| 44 4d 00 00 48 ff ff ff | d8 98 5a 79 86 00 00 00 |DM..H...|..Zy....|
|000014b0| 13 00 00 00 00 00 00 00 | 43 4f 55 4e 54 00 00 00 |........|COUNT...|
|000014c0| 44 41 54 41 cb 00 00 00 | 50 61 72 61 6d 65 74 65 |DATA....|Paramete|
|000014d0| 72 20 6c 69 73 74 3a 0a | 23 74 61 62 20 61 6c 69 |r list:.|#tab ali|
|000014e0| 67 6e 20 72 69 67 68 74 | 2c 61 6c 69 67 6e 20 6c |gn right|,align l|
|000014f0| 65 66 74 0a 30 09 41 64 | 64 72 65 73 73 20 6f 66 |eft.0.Ad|dress of|
|00001500| 20 6c 61 73 74 20 70 61 | 72 61 6d 65 74 65 72 0a | last pa|rameter.|
|00001510| 34 09 3c 54 79 70 65 3d | 3e 63 61 6c 6c 31 3e 20 |4.<Type=|>call1> |
|00001520| 6f 66 20 6c 61 73 74 20 | 70 61 72 61 6d 65 74 65 |of last |paramete|
|00001530| 72 0a 38 09 41 64 64 72 | 65 73 73 20 6f 66 20 6c |r.8.Addr|ess of l|
|00001540| 61 73 74 20 62 75 74 20 | 6f 6e 65 20 70 61 72 61 |ast but |one para|
|00001550| 6d 65 74 65 72 0a 31 32 | 09 3c 54 79 70 65 3d 3e |meter.12|.<Type=>|
|00001560| 63 61 6c 6c 31 3e 20 6f | 66 20 6c 61 73 74 20 62 |call1> o|f last b|
|00001570| 75 74 20 6f 6e 65 20 70 | 61 72 61 6d 65 74 65 72 |ut one p|arameter|
|00001580| 0a 2e 09 0a 2e 09 0a 23 | 74 61 62 00 44 41 54 41 |.......#|tab.DATA|
|00001590| a6 01 00 00 50 61 72 61 | 6d 65 74 65 72 2d 74 79 |....Para|meter-ty|
|000015a0| 70 65 3a 0a 23 77 72 61 | 70 20 6f 66 66 0a 5f 54 |pe:.#wra|p off._T|
|000015b0| 79 70 65 5f 09 5f 45 78 | 61 6d 70 6c 65 5f 09 5f |ype_._Ex|ample_._|
|000015c0| 41 64 64 72 65 73 73 20 | 70 6f 69 6e 74 73 20 74 |Address |points t|
|000015d0| 6f 5f 0a 26 30 30 30 09 | 3f 78 09 09 42 79 74 65 |o_.&000.|?x..Byte|
|000015e0| 2d 61 6c 69 67 6e 65 64 | 20 62 79 74 65 0a 26 30 |-aligned| byte.&0|
|000015f0| 30 34 09 21 78 2c 78 25 | 2c 78 28 6e 29 09 42 79 |04.!x,x%|,x(n).By|
|00001600| 74 65 2d 61 6c 69 67 6e | 65 64 20 77 6f 72 64 0a |te-align|ed word.|
|00001610| 26 30 30 35 09 7c 78 2c | 78 2c 78 28 6e 29 09 42 |&005.|x,|x,x(n).B|
|00001620| 79 74 65 2d 61 6c 69 67 | 6e 65 64 20 35 2d 62 79 |yte-alig|ned 5-by|
|00001630| 74 65 20 72 65 61 6c 0a | 26 30 38 30 09 78 24 2c |te real.|&080.x$,|
|00001640| 24 28 6e 29 09 09 42 79 | 74 65 2d 61 6c 69 67 6e |$(n)..By|te-align|
|00001650| 65 64 20 61 64 64 72 65 | 73 73 28 77 6f 72 64 29 |ed addre|ss(word)|
|00001660| 2c 6c 65 6e 67 74 68 28 | 62 79 74 65 29 0a 26 30 |,length(|byte).&0|
|00001670| 38 31 09 24 78 09 09 53 | 74 72 69 6e 67 2c 20 74 |81.$x..S|tring, t|
|00001680| 65 72 6d 69 6e 61 74 65 | 64 20 62 79 20 31 33 0a |erminate|d by 13.|
|00001690| 26 31 30 34 09 78 25 28 | 29 09 09 57 6f 72 64 2d |&104.x%(|)..Word-|
|000016a0| 61 6c 69 67 6e 65 64 20 | 70 74 72 20 74 6f 20 69 |aligned |ptr to i|
|000016b0| 6e 74 65 67 65 72 20 3c | 61 72 72 61 79 3d 3e 63 |nteger <|array=>c|
|000016c0| 61 6c 6c 32 3e 0a 26 31 | 30 35 09 78 28 29 09 09 |all2>.&1|05.x()..|
|000016d0| 57 6f 72 64 2d 61 6c 69 | 67 6e 65 64 20 70 74 72 |Word-ali|gned ptr|
|000016e0| 20 74 6f 20 72 65 61 6c | 20 3c 61 72 72 61 79 3d | to real| <array=|
|000016f0| 3e 63 61 6c 6c 32 3e 0a | 26 31 38 30 09 78 24 28 |>call2>.|&180.x$(|
|00001700| 29 09 09 57 6f 72 64 2d | 61 6c 69 67 6e 65 64 20 |)..Word-|aligned |
|00001710| 70 74 72 20 74 6f 20 73 | 74 72 69 6e 67 20 3c 61 |ptr to s|tring <a|
|00001720| 72 72 61 79 3d 3e 63 61 | 6c 6c 32 3e 0a 23 77 72 |rray=>ca|ll2>.#wr|
|00001730| 61 70 00 00 44 41 54 41 | fb 00 00 00 41 72 72 61 |ap..DATA|....Arra|
|00001740| 79 3a 0a 23 74 61 62 20 | 66 61 6c 69 67 6e 20 72 |y:.#tab |falign r|
|00001750| 69 67 68 74 2c 66 61 6c | 69 67 6e 20 6c 65 66 74 |ight,fal|ign left|
|00001760| 0a 30 09 53 75 62 73 63 | 72 69 70 74 20 6c 69 6d |.0.Subsc|ript lim|
|00001770| 69 74 20 31 73 74 20 64 | 69 6d 65 6e 73 69 6f 6e |it 1st d|imension|
|00001780| 2e 0a 34 09 53 75 62 73 | 63 72 69 70 74 20 6c 69 |..4.Subs|cript li|
|00001790| 6d 69 74 20 32 6e 64 20 | 64 69 6d 65 6e 73 69 6f |mit 2nd |dimensio|
|000017a0| 6e 2e 0a 2e 09 0a 2e 09 | 0a 6e 09 30 0a 6e 2b 34 |n.......|.n.0.n+4|
|000017b0| 09 54 6f 74 61 6c 20 6e | 72 20 6f 66 20 65 6e 74 |.Total n|r of ent|
|000017c0| 72 69 65 73 2e 0a 6e 2b | 38 09 41 72 72 61 79 20 |ries..n+|8.Array |
|000017d0| 65 6c 65 6d 65 6e 74 73 | 2e 2e 0a 23 74 61 62 0a |elements|...#tab.|
|000017e0| 0a 44 49 4d 20 78 28 49 | 2d 31 2c 4a 2d 31 2c 4b |.DIM x(I|-1,J-1,K|
|000017f0| 2d 31 29 20 3a 0a 0a 41 | 64 64 72 65 73 73 20 6f |-1) :..A|ddress o|
|00001800| 66 20 78 28 69 2c 6a 2c | 6b 29 20 3a 0a 20 20 28 |f x(i,j,|k) :. (|
|00001810| 28 69 2a 4a 2b 6a 29 2a | 4b 2b 6b 29 2a 65 6c 65 |(i*J+j)*|K+k)*ele|
|00001820| 6d 65 6e 74 5f 73 69 7a | 65 20 2b 20 6e 2b 38 00 |ment_siz|e + n+8.|
|00001830| 44 41 54 41 0a 07 00 00 | 45 6e 76 69 72 6f 6e 6d |DATA....|Environm|
|00001840| 65 6e 74 20 69 6e 66 6f | 3a 0a 23 74 61 62 20 66 |ent info|:.#tab f|
|00001850| 41 6c 69 67 6e 20 52 69 | 67 68 74 2c 66 41 6c 69 |Align Ri|ght,fAli|
|00001860| 67 6e 20 43 65 6e 74 72 | 65 2c 66 41 6c 69 67 6e |gn Centr|e,fAlign|
|00001870| 20 4c 65 66 74 2c 66 41 | 6c 69 67 6e 20 4c 65 66 | Left,fA|lign Lef|
|00001880| 74 0a 30 09 28 26 30 30 | 29 09 42 20 43 41 4c 4c |t.0.(&00|).B CALL|
|00001890| 32 52 45 41 4c 09 52 65 | 74 75 72 6e 20 61 64 64 |2REAL.Re|turn add|
|000018a0| 72 65 73 73 2e 0a 23 69 | 6e 64 65 6e 74 20 32 0a |ress..#i|ndent 2.|
|000018b0| 0a 23 66 2a 2f 73 74 64 | 3a 54 68 65 73 65 20 61 |.#f*/std|:These a|
|000018c0| 72 65 20 6f 66 66 73 65 | 74 73 20 66 72 6f 6d 20 |re offse|ts from |
|000018d0| 52 38 3a 0a 34 09 28 26 | 30 34 29 09 3c 53 54 52 |R8:.4.(&|04).<STR|
|000018e0| 41 43 43 3d 3e 63 61 6c | 6c 73 74 72 61 63 63 3e |ACC=>cal|lstracc>|
|000018f0| 09 53 74 72 69 6e 67 20 | 61 63 63 75 6d 75 6c 61 |.String |accumula|
|00001900| 74 6f 72 0a 38 09 28 26 | 30 38 29 09 50 41 47 45 |tor.8.(&|08).PAGE|
|00001910| 09 43 75 72 72 65 6e 74 | 20 50 41 47 45 20 76 61 |.Current| PAGE va|
|00001920| 6c 75 65 0a 31 32 09 28 | 26 30 43 29 09 54 4f 50 |lue.12.(|&0C).TOP|
|00001930| 09 43 75 72 72 65 6e 74 | 20 54 4f 50 20 76 61 6c |.Current| TOP val|
|00001940| 75 65 0a 31 36 09 28 26 | 31 30 29 09 4c 4f 4d 45 |ue.16.(&|10).LOME|
|00001950| 4d 09 43 75 72 72 65 6e | 74 20 76 61 72 69 61 62 |M.Curren|t variab|
|00001960| 6c 65 20 73 74 61 72 74 | 0a 32 30 09 28 26 31 34 |le start|.20.(&14|
|00001970| 29 09 48 49 4d 45 4d 09 | 43 75 72 72 65 6e 74 20 |).HIMEM.|Current |
|00001980| 73 74 61 63 6b 20 65 6e | 64 0a 32 34 09 28 26 31 |stack en|d.24.(&1|
|00001990| 38 29 09 4d 45 4d 4c 49 | 4d 49 54 09 4c 69 6d 69 |8).MEMLI|MIT.Limi|
|000019a0| 74 20 6f 66 20 61 76 61 | 69 6c 61 62 6c 65 20 6d |t of ava|ilable m|
|000019b0| 65 6d 6f 72 79 0a 32 38 | 09 28 26 31 43 29 09 46 |emory.28|.(&1C).F|
|000019c0| 53 41 09 46 72 65 65 20 | 73 70 61 63 65 20 73 74 |SA.Free |space st|
|000019d0| 61 72 74 0a 33 32 09 28 | 26 32 30 29 09 54 41 4c |art.32.(|&20).TAL|
|000019e0| 4c 59 09 56 61 6c 75 65 | 20 6f 66 20 43 4f 55 4e |LY.Value| of COUN|
|000019f0| 54 0a 33 36 09 28 26 32 | 34 29 09 54 52 41 43 45 |T.36.(&2|4).TRACE|
|00001a00| 46 09 54 52 41 43 45 46 | 49 4c 45 20 68 61 6e 64 |F.TRACEF|ILE hand|
|00001a10| 6c 65 20 28 30 20 66 6f | 72 20 6e 6f 20 74 72 61 |le (0 fo|r no tra|
|00001a20| 63 65 20 66 69 6c 65 29 | 20 28 66 6f 72 6d 65 72 |ce file)| (former|
|00001a30| 6c 79 20 6b 6e 6f 77 6e | 20 61 73 20 54 49 4d 45 |ly known| as TIME|
|00001a40| 4f 46 29 0a 09 2b 34 09 | 20 20 4c 4f 43 41 4c 41 |OF)..+4.| LOCALA|
|00001a50| 52 4c 49 53 54 09 50 6f | 69 6e 74 65 72 20 74 6f |RLIST.Po|inter to|
|00001a60| 20 61 20 6c 69 73 74 20 | 6f 66 20 6c 6f 63 61 6c | a list |of local|
|00001a70| 20 61 72 72 61 79 73 0a | 09 2b 38 09 20 20 49 4e | arrays.|.+8. IN|
|00001a80| 53 54 41 4c 4c 4c 49 53 | 54 09 50 6f 69 6e 74 65 |STALLLIS|T.Pointe|
|00001a90| 72 20 74 6f 20 74 68 65 | 20 6c 69 73 74 20 6f 66 |r to the| list of|
|00001aa0| 20 69 6e 73 74 61 6c 6c | 65 64 20 6c 69 62 72 61 | install|ed libra|
|00001ab0| 72 69 65 73 0a 09 2b 31 | 32 09 20 20 4c 49 42 52 |ries..+1|2. LIBR|
|00001ac0| 41 52 59 4c 49 53 54 09 | 50 6f 69 6e 74 65 72 20 |ARYLIST.|Pointer |
|00001ad0| 74 6f 20 74 68 65 20 6c | 69 73 74 20 6f 66 20 6c |to the l|ist of l|
|00001ae0| 69 62 72 61 72 69 65 73 | 0a 0a 34 30 09 28 26 32 |ibraries|..40.(&2|
|00001af0| 38 29 09 45 53 43 57 4f | 52 44 09 45 78 63 65 70 |8).ESCWO|RD.Excep|
|00001b00| 74 69 6f 6e 20 66 6c 61 | 67 20 77 6f 72 64 0a 34 |tion fla|g word.4|
|00001b10| 34 09 28 26 32 43 29 09 | 57 49 44 54 48 4c 4f 43 |4.(&2C).|WIDTHLOC|
|00001b20| 09 56 61 6c 75 65 20 6f | 66 20 57 49 44 54 48 0a |.Value o|f WIDTH.|
|00001b30| 23 69 6e 64 65 6e 74 0a | 0a 34 38 09 28 26 33 30 |#indent.|.48.(&30|
|00001b40| 29 09 42 20 56 41 52 49 | 4e 44 09 47 65 74 20 76 |).B VARI|ND.Get v|
|00001b50| 61 6c 75 65 20 6f 66 20 | 4c 2d 76 61 6c 75 65 0a |alue of |L-value.|
|00001b60| 35 32 09 28 26 33 34 29 | 09 42 20 53 54 4f 52 45 |52.(&34)|.B STORE|
|00001b70| 41 09 53 74 6f 72 65 20 | 76 61 6c 75 65 20 69 6e |A.Store |value in|
|00001b80| 74 6f 20 4c 2d 76 61 6c | 75 65 0a 35 36 09 28 26 |to L-val|ue.56.(&|
|00001b90| 33 38 29 09 42 20 53 54 | 53 54 4f 52 45 09 53 74 |38).B ST|STORE.St|
|00001ba0| 6f 72 65 20 73 74 72 69 | 6e 67 20 69 6e 74 6f 20 |ore stri|ng into |
|00001bb0| 74 79 70 65 20 31 32 38 | 20 73 74 72 69 6e 67 0a |type 128| string.|
|00001bc0| 36 30 09 28 26 33 43 29 | 09 3c 42 20 4c 56 42 4c |60.(&3C)|.<B LVBL|
|00001bd0| 4e 4b 3d 3e 63 61 6c 6c | 6c 76 62 6c 6e 6b 3e 09 |NK=>call|lvblnk>.|
|00001be0| 43 6f 6e 76 65 72 74 20 | 73 74 72 69 6e 67 20 6e |Convert |string n|
|00001bf0| 61 6d 65 20 69 6e 74 6f | 20 4c 2d 76 61 6c 75 65 |ame into| L-value|
|00001c00| 20 61 64 64 72 20 61 6e | 64 20 74 79 70 65 0a 36 | addr an|d type.6|
|00001c10| 34 09 28 26 34 30 29 09 | 3c 42 20 43 52 45 41 54 |4.(&40).|<B CREAT|
|00001c20| 45 3d 3e 63 61 6c 6c 63 | 72 65 61 74 65 3e 09 43 |E=>callc|reate>.C|
|00001c30| 72 65 61 74 65 20 6e 65 | 77 20 76 61 72 69 61 62 |reate ne|w variab|
|00001c40| 6c 65 0a 36 38 09 28 26 | 34 34 29 09 3c 42 20 45 |le.68.(&|44).<B E|
|00001c50| 58 50 52 3d 3e 63 61 6c | 6c 65 78 70 72 3e 09 55 |XPR=>cal|lexpr>.U|
|00001c60| 73 65 20 65 78 70 72 20 | 61 6e 61 6c 79 73 65 72 |se expr |analyser|
|00001c70| 20 6f 6e 20 73 74 72 69 | 6e 67 0a 37 32 09 28 26 | on stri|ng.72.(&|
|00001c80| 34 38 29 09 3c 42 20 4d | 41 54 43 48 3d 3e 63 61 |48).<B M|ATCH=>ca|
|00001c90| 6c 6c 6d 61 74 63 68 3e | 09 4c 65 78 69 63 61 6c |llmatch>|.Lexical|
|00001ca0| 20 61 6e 61 6c 79 73 65 | 20 73 6f 75 72 63 65 20 | analyse| source |
|00001cb0| 73 74 72 69 6e 67 20 74 | 6f 20 64 65 73 74 20 73 |string t|o dest s|
|00001cc0| 74 72 69 6e 67 0a 37 36 | 09 28 26 34 43 29 09 42 |tring.76|.(&4C).B|
|00001cd0| 20 54 4f 4b 45 4e 41 44 | 44 52 09 50 74 72 20 74 | TOKENAD|DR.Ptr t|
|00001ce0| 6f 20 73 74 72 69 6e 67 | 20 66 6f 72 20 67 69 76 |o string| for giv|
|00001cf0| 65 6e 20 74 6f 6b 65 6e | 0a 38 30 09 28 26 35 30 |en token|.80.(&50|
|00001d00| 29 09 30 09 44 65 6e 6f | 74 65 73 20 65 6e 64 20 |).0.Deno|tes end |
|00001d10| 6f 66 20 66 69 72 73 74 | 20 70 61 72 74 20 6f 66 |of first| part of|
|00001d20| 20 74 61 62 6c 65 0a 38 | 34 09 28 26 35 34 29 09 | table.8|4.(&54).|
|00001d30| 39 09 4e 72 20 6f 66 20 | 61 64 64 69 74 69 6f 6e |9.Nr of |addition|
|00001d40| 61 6c 20 72 6f 75 74 69 | 6e 65 73 20 70 72 65 73 |al routi|nes pres|
|00001d50| 65 6e 74 2e 0a 38 38 09 | 28 26 35 38 29 09 42 20 |ent..88.|(&58).B |
|00001d60| 46 53 54 41 09 5b 52 39 | 5d 3d 52 30 2e 2e 52 33 |FSTA.[R9|]=R0..R3|
|00001d70| 0a 39 32 09 28 26 35 43 | 29 09 42 20 46 4c 44 41 |.92.(&5C|).B FLDA|
|00001d80| 09 52 30 2e 2e 52 33 3d | 5b 52 39 5d 0a 39 36 09 |.R0..R3=|[R9].96.|
|00001d90| 28 26 36 30 29 09 3c 42 | 20 46 41 44 44 3d 3e 63 |(&60).<B| FADD=>c|
|00001da0| 61 6c 6c 66 70 61 64 64 | 3e 09 52 30 2e 2e 52 33 |allfpadd|>.R0..R3|
|00001db0| 3d 5b 52 39 5d 2b 28 52 | 30 2e 2e 52 33 29 20 20 |=[R9]+(R|0..R3) |
|00001dc0| 28 63 6f 72 72 75 70 74 | 73 20 72 34 2e 2e 72 37 |(corrupt|s r4..r7|
|00001dd0| 29 0a 31 30 30 09 28 26 | 36 34 29 09 42 20 46 53 |).100.(&|64).B FS|
|00001de0| 55 42 09 52 30 2e 2e 52 | 33 3d 5b 52 39 5d 2d 28 |UB.R0..R|3=[R9]-(|
|00001df0| 52 30 2e 2e 52 33 29 20 | 20 28 63 6f 72 72 75 70 |R0..R3) | (corrup|
|00001e00| 74 73 20 72 34 2e 2e 72 | 37 29 0a 31 30 34 09 28 |ts r4..r|7).104.(|
|00001e10| 26 36 38 29 09 42 20 46 | 4d 55 4c 09 52 30 2e 2e |&68).B F|MUL.R0..|
|00001e20| 52 33 3d 28 52 30 2e 2e | 52 33 29 2a 5b 52 39 5d |R3=(R0..|R3)*[R9]|
|00001e30| 20 20 28 63 6f 72 72 75 | 70 74 73 20 72 34 2e 2e | (corru|pts r4..|
|00001e40| 72 37 29 0a 31 30 38 09 | 28 26 36 43 29 09 42 20 |r7).108.|(&6C).B |
|00001e50| 46 44 49 56 09 52 30 2e | 2e 52 33 3d 5b 52 39 5d |FDIV.R0.|.R3=[R9]|
|00001e60| 2f 28 52 30 2e 2e 52 33 | 29 20 20 28 63 6f 72 72 |/(R0..R3|) (corr|
|00001e70| 75 70 74 73 20 72 34 2e | 2e 72 37 29 0a 31 31 32 |upts r4.|.r7).112|
|00001e80| 09 28 26 37 30 29 09 42 | 20 46 4c 4f 41 54 09 52 |.(&70).B| FLOAT.R|
|00001e90| 30 2e 2e 52 33 3d 46 4c | 4f 41 54 28 52 30 29 20 |0..R3=FL|OAT(R0) |
|00001ea0| 20 28 72 39 3d 26 38 30 | 30 30 30 30 30 30 20 6f | (r9=&80|000000 o|
|00001eb0| 6e 20 65 78 69 74 29 0a | 31 31 36 09 28 26 37 34 |n exit).|116.(&74|
|00001ec0| 29 09 42 20 46 49 58 09 | 52 30 3d 46 49 58 28 52 |).B FIX.|R0=FIX(R|
|00001ed0| 30 2e 2e 52 33 29 20 20 | 28 72 39 3d 26 34 30 30 |0..R3) |(r9=&400|
|00001ee0| 30 30 30 30 30 20 6f 6e | 20 65 78 69 74 29 0a 31 |00000 on| exit).1|
|00001ef0| 32 30 09 28 26 37 38 29 | 09 3c 42 20 46 53 51 52 |20.(&78)|.<B FSQR|
|00001f00| 54 3d 3e 63 61 6c 6c 66 | 70 73 71 72 74 3e 09 52 |T=>callf|psqrt>.R|
|00001f10| 30 2e 2e 52 33 3d 53 51 | 52 28 52 30 2e 2e 52 33 |0..R3=SQ|R(R0..R3|
|00001f20| 29 20 20 28 63 6f 72 72 | 75 70 74 73 20 72 34 2e |) (corr|upts r4.|
|00001f30| 2e 72 37 29 0a 23 74 61 | 62 0a 00 00 44 41 54 41 |.r7).#ta|b...DATA|
|00001f40| 7e 08 00 00 42 61 73 69 | 63 27 73 20 61 64 64 69 |~...Basi|c's addi|
|00001f50| 74 69 6f 6e 61 6c 20 72 | 6f 75 74 69 6e 65 73 0a |tional r|outines.|
|00001f60| 54 68 65 20 61 64 64 69 | 74 69 6f 6e 61 6c 20 72 |The addi|tional r|
|00001f70| 6f 75 74 69 6e 65 73 20 | 28 39 20 61 74 20 70 72 |outines |(9 at pr|
|00001f80| 65 73 65 6e 74 29 20 61 | 72 65 20 42 61 73 69 63 |esent) a|re Basic|
|00001f90| 27 73 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |'s float|ing poin|
|00001fa0| 74 20 72 6f 75 74 69 6e | 65 73 2e 20 54 68 65 20 |t routin|es. The |
|00001fb0| 61 64 76 61 6e 74 61 67 | 65 20 6f 66 20 75 73 69 |advantag|e of usi|
|00001fc0| 6e 67 20 74 68 65 73 65 | 20 6f 76 65 72 20 74 68 |ng these| over th|
|00001fd0| 65 20 46 50 45 6d 75 6c | 61 74 6f 72 20 72 6f 75 |e FPEmul|ator rou|
|00001fe0| 74 69 6e 65 73 20 69 73 | 20 74 77 6f 2d 66 6f 6c |tines is| two-fol|
|00001ff0| 64 2e 0a 0a 46 69 72 73 | 74 6c 79 2c 20 74 68 65 |d...Firs|tly, the|
|00002000| 72 65 20 69 73 20 6e 6f | 20 6e 65 65 64 20 66 6f |re is no| need fo|
|00002010| 72 20 61 64 64 69 74 69 | 6f 6e 61 6c 20 63 6f 64 |r additi|onal cod|
|00002020| 65 20 2d 20 65 69 74 68 | 65 72 20 74 68 65 20 46 |e - eith|er the F|
|00002030| 50 45 6d 75 6c 61 74 6f | 72 20 69 74 73 65 6c 66 |PEmulato|r itself|
|00002040| 2c 20 6f 72 20 74 68 65 | 20 72 6f 75 74 69 6e 65 |, or the| routine|
|00002050| 73 20 6e 65 63 65 73 73 | 61 72 79 20 74 6f 20 67 |s necess|ary to g|
|00002060| 65 6e 65 72 61 74 65 20 | 74 68 65 20 27 67 65 6e |enerate |the 'gen|
|00002070| 75 69 6e 65 27 20 46 50 | 20 69 6e 73 74 72 75 63 |uine' FP| instruc|
|00002080| 74 69 6f 6e 73 2e 0a 0a | 54 68 65 20 73 65 63 6f |tions...|The seco|
|00002090| 6e 64 20 61 64 76 61 6e | 74 61 67 65 20 69 73 20 |nd advan|tage is |
|000020a0| 73 70 65 65 64 2e 20 4f | 6e 20 61 20 53 74 72 6f |speed. O|n a Stro|
|000020b0| 6e 67 41 52 4d 20 6d 61 | 63 68 69 6e 65 2c 20 61 |ngARM ma|chine, a|
|000020c0| 6e 64 20 74 6f 20 61 20 | 6c 65 73 73 65 72 20 65 |nd to a |lesser e|
|000020d0| 78 74 65 6e 74 20 6f 6e | 20 6f 74 68 65 72 20 70 |xtent on| other p|
|000020e0| 72 6f 63 65 73 73 6f 72 | 73 2c 20 74 68 65 20 42 |rocessor|s, the B|
|000020f0| 61 73 69 63 20 28 56 29 | 20 46 50 20 72 6f 75 74 |asic (V)| FP rout|
|00002100| 69 6e 65 73 20 61 72 65 | 20 2f 6d 75 63 68 2f 20 |ines are| /much/ |
|00002110| 66 61 73 74 65 72 20 74 | 68 61 6e 20 74 68 65 69 |faster t|han thei|
|00002120| 72 20 46 50 45 6d 75 6c | 61 74 6f 72 20 63 6f 75 |r FPEmul|ator cou|
|00002130| 6e 74 65 72 70 61 72 74 | 73 2e 0a 0a 54 68 65 20 |nterpart|s...The |
|00002140| 70 72 69 63 65 20 79 6f | 75 20 70 61 79 20 66 6f |price yo|u pay fo|
|00002150| 72 20 74 68 69 73 20 69 | 73 20 61 20 6c 6f 73 73 |r this i|s a loss|
|00002160| 20 6f 66 20 61 63 63 75 | 72 61 63 79 20 2d 20 42 | of accu|racy - B|
|00002170| 61 73 69 63 27 73 20 72 | 6f 75 74 69 6e 65 73 20 |asic's r|outines |
|00002180| 75 73 65 20 34 30 2d 62 | 69 74 20 66 6c 6f 61 74 |use 40-b|it float|
|00002190| 73 2c 20 61 73 20 6f 70 | 70 6f 73 65 64 20 74 6f |s, as op|posed to|
|000021a0| 20 74 68 65 20 36 34 20 | 28 3f 29 20 77 68 69 63 | the 64 |(?) whic|
|000021b0| 68 20 74 68 65 20 46 50 | 45 6d 75 6c 61 74 6f 72 |h the FP|Emulator|
|000021c0| 20 75 73 65 73 2e 20 5b | 54 68 69 73 20 69 73 20 | uses. [|This is |
|000021d0| 70 61 72 74 6c 79 20 77 | 68 79 20 42 61 73 69 63 |partly w|hy Basic|
|000021e0| 27 73 20 72 6f 75 74 69 | 6e 65 73 20 61 72 65 20 |'s routi|nes are |
|000021f0| 73 6f 20 6d 75 63 68 20 | 66 61 73 74 65 72 2e 5d |so much |faster.]|
|00002200| 20 41 6c 73 6f 2c 20 74 | 68 65 72 65 20 77 69 6c | Also, t|here wil|
|00002210| 6c 20 62 65 20 6e 6f 20 | 73 70 65 65 64 20 69 6e |l be no |speed in|
|00002220| 63 72 65 61 73 65 20 69 | 66 20 61 20 46 50 55 20 |crease i|f a FPU |
|00002230| 69 73 20 69 6e 73 74 61 | 6c 6c 65 64 20 69 6e 20 |is insta|lled in |
|00002240| 74 68 65 20 6d 61 63 68 | 69 6e 65 2e 0a 0a 42 61 |the mach|ine...Ba|
|00002250| 73 69 63 27 73 20 46 50 | 20 72 6f 75 74 69 6e 65 |sic's FP| routine|
|00002260| 73 20 77 6f 72 6b 20 77 | 69 74 68 20 61 20 73 74 |s work w|ith a st|
|00002270| 61 6e 64 61 72 64 20 61 | 63 63 75 6d 75 6c 61 74 |andard a|ccumulat|
|00002280| 6f 72 20 74 65 63 68 6e | 69 71 75 65 2e 0a 72 30 |or techn|ique..r0|
|00002290| 2e 2e 72 33 20 61 72 65 | 20 75 73 65 64 20 61 73 |..r3 are| used as|
|000022a0| 20 74 68 65 20 65 78 70 | 61 6e 64 65 64 20 46 50 | the exp|anded FP|
|000022b0| 20 61 63 63 75 6d 75 6c | 61 74 6f 72 2c 20 61 6e | accumul|ator, an|
|000022c0| 64 20 72 39 20 69 73 20 | 75 73 65 64 20 61 73 20 |d r9 is |used as |
|000022d0| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 61 6e 79 |a pointe|r to any|
|000022e0| 20 6f 74 68 65 72 20 64 | 61 74 61 2e 0a 0a 54 68 | other d|ata...Th|
|000022f0| 65 73 65 20 61 64 64 69 | 74 69 6f 6e 61 6c 20 72 |ese addi|tional r|
|00002300| 6f 75 74 69 6e 65 73 20 | 61 72 65 20 61 63 63 65 |outines |are acce|
|00002310| 73 73 65 64 20 62 79 20 | 74 68 65 20 74 61 62 6c |ssed by |the tabl|
|00002320| 65 20 77 68 69 63 68 20 | 69 73 20 70 61 73 73 65 |e which |is passe|
|00002330| 64 20 69 6e 20 72 31 34 | 20 74 6f 20 61 6e 79 20 |d in r14| to any |
|00002340| 63 6f 64 65 20 77 68 69 | 63 68 20 69 73 20 43 41 |code whi|ch is CA|
|00002350| 4c 4c 65 64 20 66 72 6f | 6d 20 61 20 42 61 73 69 |LLed fro|m a Basi|
|00002360| 63 20 70 72 6f 67 72 61 | 6d 2e 20 46 69 72 73 74 |c progra|m. First|
|00002370| 6c 79 2c 20 69 74 27 73 | 20 6e 65 63 65 73 73 61 |ly, it's| necessa|
|00002380| 72 79 20 74 6f 20 74 61 | 6b 65 20 61 20 63 6f 70 |ry to ta|ke a cop|
|00002390| 79 20 6f 66 20 74 68 65 | 20 61 64 64 72 65 73 73 |y of the| address|
|000023a0| 20 6f 66 20 74 68 69 73 | 20 74 61 62 6c 65 2c 20 | of this| table, |
|000023b0| 61 73 20 72 31 34 20 77 | 69 6c 6c 20 62 65 20 72 |as r14 w|ill be r|
|000023c0| 65 71 75 69 72 65 64 20 | 6c 61 74 65 72 2e 20 4e |equired |later. N|
|000023d0| 6f 74 65 20 74 68 61 74 | 20 72 34 2e 2e 72 37 20 |ote that| r4..r7 |
|000023e0| 61 72 65 20 63 6f 72 72 | 75 70 74 65 64 20 62 79 |are corr|upted by|
|000023f0| 20 73 6f 6d 65 20 28 6d | 6f 73 74 29 20 6f 66 20 | some (m|ost) of |
|00002400| 42 61 73 69 63 27 73 20 | 46 50 20 72 6f 75 74 69 |Basic's |FP routi|
|00002410| 6e 65 73 2c 20 61 6e 64 | 20 72 39 20 69 73 20 72 |nes, and| r9 is r|
|00002420| 65 71 75 69 72 65 64 20 | 61 73 20 6d 65 6e 74 69 |equired |as menti|
|00002430| 6f 6e 65 64 20 61 62 6f | 76 65 2e 20 54 68 69 73 |oned abo|ve. This|
|00002440| 20 64 6f 65 73 6e 27 74 | 20 61 63 74 75 61 6c 6c | doesn't| actuall|
|00002450| 79 20 6c 65 61 76 65 20 | 6d 61 6e 79 20 72 65 67 |y leave |many reg|
|00002460| 69 73 74 65 72 73 20 66 | 72 65 65 2c 20 73 6f 20 |isters f|ree, so |
|00002470| 46 50 20 63 6f 64 65 20 | 75 73 75 61 6c 6c 79 20 |FP code |usually |
|00002480| 69 6e 76 6f 6c 76 65 73 | 20 61 20 6c 6f 74 20 6f |involves| a lot o|
|00002490| 66 20 73 74 61 63 6b 20 | 75 73 65 2e 0a 0a 48 61 |f stack |use...Ha|
|000024a0| 76 69 6e 67 20 64 6f 6e | 65 20 74 68 61 74 2c 20 |ving don|e that, |
|000024b0| 69 74 27 73 20 6e 65 63 | 65 73 73 61 72 79 20 74 |it's nec|essary t|
|000024c0| 6f 20 73 65 74 20 75 70 | 20 74 68 65 20 6c 69 6e |o set up| the lin|
|000024d0| 6b 20 72 65 67 69 73 74 | 65 72 20 73 6f 20 74 68 |k regist|er so th|
|000024e0| 61 74 20 42 61 73 69 63 | 27 73 20 72 6f 75 74 69 |at Basic|'s routi|
|000024f0| 6e 65 73 20 63 61 6e 20 | 67 65 74 20 62 61 63 6b |nes can |get back|
|00002500| 20 74 6f 20 79 6f 75 2c | 20 61 6e 64 20 74 68 65 | to you,| and the|
|00002510| 6e 20 74 6f 20 62 72 61 | 6e 63 68 20 74 6f 20 74 |n to bra|nch to t|
|00002520| 68 65 20 72 65 6c 65 76 | 61 6e 74 20 72 6f 75 74 |he relev|ant rout|
|00002530| 69 6e 65 2e 20 53 6f 2c | 20 74 68 65 20 66 6f 6c |ine. So,| the fol|
|00002540| 6c 6f 77 69 6e 67 20 74 | 77 6f 20 69 6e 73 74 72 |lowing t|wo instr|
|00002550| 75 63 74 69 6f 6e 73 20 | 73 68 6f 75 6c 64 20 64 |uctions |should d|
|00002560| 6f 20 74 68 65 20 74 72 | 69 63 6b 2e 0a 20 20 6d |o the tr|ick.. m|
|00002570| 6f 76 20 31 34 2c 31 35 | 20 3b 20 6e 6f 74 65 20 |ov 14,15| ; note |
|00002580| 74 68 61 74 20 72 31 35 | 20 69 73 20 6f 66 20 63 |that r15| is of c|
|00002590| 6f 75 72 73 65 20 61 63 | 74 75 61 6c 6c 79 20 2b |ourse ac|tually +|
|000025a0| 20 38 20 77 68 65 6e 20 | 72 65 61 64 69 6e 67 0a | 8 when |reading.|
|000025b0| 20 20 61 64 64 20 31 35 | 2c 31 34 2c 23 28 73 6f | add 15|,14,#(so|
|000025c0| 6d 65 20 63 6f 6e 73 74 | 61 6e 74 29 20 3b 20 65 |me const|ant) ; e|
|000025d0| 67 2c 20 23 26 37 30 20 | 66 6f 72 20 46 4c 4f 41 |g, #&70 |for FLOA|
|000025e0| 54 0a 20 20 3b 20 61 6e | 64 20 77 65 20 72 65 74 |T. ; an|d we ret|
|000025f0| 75 72 6e 20 68 65 72 65 | 0a 0a 54 68 65 20 6f 6e |urn here|..The on|
|00002600| 65 20 74 68 69 6e 67 20 | 74 6f 20 62 65 20 61 77 |e thing |to be aw|
|00002610| 61 72 65 20 6f 66 20 69 | 73 20 65 78 69 74 69 6e |are of i|s exitin|
|00002620| 67 20 66 72 6f 6d 20 79 | 6f 75 72 20 63 6f 64 65 |g from y|our code|
|00002630| 2e 20 46 61 69 6c 75 72 | 65 20 74 6f 20 70 72 65 |. Failur|e to pre|
|00002640| 73 65 72 76 65 20 70 72 | 6f 63 65 73 73 6f 72 20 |serve pr|ocessor |
|00002650| 66 6c 61 67 73 20 63 61 | 6e 20 68 61 76 65 20 64 |flags ca|n have d|
|00002660| 69 73 61 73 74 72 6f 75 | 73 20 63 6f 6e 73 65 71 |isastrou|s conseq|
|00002670| 75 65 6e 63 65 73 2e 20 | 49 27 6d 20 6e 6f 74 20 |uences. |I'm not |
|00002680| 74 6f 6f 20 73 75 72 65 | 20 77 68 79 20 74 68 69 |too sure| why thi|
|00002690| 73 20 68 61 70 70 65 6e | 73 2c 20 62 75 74 20 69 |s happen|s, but i|
|000026a0| 74 20 64 6f 65 73 2e 20 | 28 57 65 6c 6c 2c 20 66 |t does. |(Well, f|
|000026b0| 6f 72 20 6d 65 20 61 74 | 20 6c 65 61 73 74 2e 29 |or me at| least.)|
|000026c0| 20 53 6f 2c 20 75 73 65 | 20 61 20 0a 20 20 6d 6f | So, use| a . mo|
|000026d0| 76 73 20 31 35 2c 6c 69 | 6e 6b 72 65 67 20 3b 20 |vs 15,li|nkreg ; |
|000026e0| 77 68 69 63 68 20 70 72 | 6f 62 61 62 6c 79 20 77 |which pr|obably w|
|000026f0| 6f 6e 27 74 20 62 65 20 | 31 34 20 6e 6f 77 0a 6f |on't be |14 now.o|
|00002700| 72 20 61 0a 20 20 6c 64 | 6d 66 64 20 31 33 21 2c |r a. ld|mfd 13!,|
|00002710| 5c 7b 31 35 5c 7d 5e 20 | 3b 20 77 68 65 72 65 20 |\{15\}^ |; where |
|00002720| 74 68 65 20 68 61 74 20 | 69 73 20 69 6d 70 6f 72 |the hat |is impor|
|00002730| 74 61 6e 74 0a 0a 46 69 | 6e 61 6c 6c 79 2c 20 74 |tant..Fi|nally, t|
|00002740| 68 65 72 65 20 61 72 65 | 20 61 20 63 6f 75 70 6c |here are| a coupl|
|00002750| 65 20 6f 66 20 63 6f 64 | 65 20 73 6e 69 70 70 65 |e of cod|e snippe|
|00002760| 74 73 20 69 6c 6c 75 73 | 74 72 61 74 69 6e 67 20 |ts illus|trating |
|00002770| 74 68 65 20 75 73 65 20 | 6f 66 20 74 68 65 73 65 |the use |of these|
|00002780| 20 72 6f 75 74 69 6e 65 | 73 20 3a 20 3c 61 64 64 | routine|s : <add|
|00002790| 69 74 69 6f 6e 3d 3e 63 | 61 6c 6c 66 70 61 64 64 |ition=>c|allfpadd|
|000027a0| 3e 20 61 6e 64 20 3c 73 | 71 72 74 3d 3e 63 61 6c |> and <s|qrt=>cal|
|000027b0| 6c 66 70 73 71 72 74 3e | 2e 0a 00 00 44 41 54 41 |lfpsqrt>|....DATA|
|000027c0| 6f 02 00 00 43 52 45 41 | 54 45 20 2d 20 43 72 65 |o...CREA|TE - Cre|
|000027d0| 61 74 65 20 61 20 76 61 | 72 69 61 62 6c 65 0a 23 |ate a va|riable.#|
|000027e0| 70 61 72 65 6e 74 20 43 | 41 4c 4c 0a 4f 6e 20 65 |parent C|ALL.On e|
|000027f0| 6e 74 72 79 0a 23 69 6e | 64 65 6e 74 20 32 0a 72 |ntry.#in|dent 2.r|
|00002800| 33 09 3d 09 53 65 63 6f | 6e 64 20 63 68 61 72 61 |3.=.Seco|nd chara|
|00002810| 63 74 65 72 20 6f 66 20 | 6e 61 6d 65 20 6f 72 20 |cter of |name or |
|00002820| 30 0a 72 34 09 3d 09 50 | 6f 69 6e 74 73 20 74 6f |0.r4.=.P|oints to|
|00002830| 20 73 74 61 72 74 20 6f | 66 20 74 68 65 20 72 65 | start o|f the re|
|00002840| 73 74 20 6f 66 20 74 68 | 65 20 6e 61 6d 65 0a 72 |st of th|e name.r|
|00002850| 38 09 3d 09 41 52 47 50 | 20 28 70 61 73 73 65 64 |8.=.ARGP| (passed|
|00002860| 20 69 6e 20 72 38 20 62 | 79 20 43 41 4c 4c 29 0a | in r8 b|y CALL).|
|00002870| 72 39 09 3d 09 4e 75 6d | 62 65 72 20 6f 66 20 7a |r9.=.Num|ber of z|
|00002880| 65 72 6f 20 62 79 74 65 | 73 20 6f 6e 20 74 68 65 |ero byte|s on the|
|00002890| 20 65 6e 64 0a 72 31 30 | 09 3d 09 46 69 72 73 74 | end.r10|.=.First|
|000028a0| 20 63 68 61 72 61 63 74 | 65 72 20 6f 66 20 6e 61 | charact|er of na|
|000028b0| 6d 65 0a 72 31 31 09 3d | 09 50 6f 69 6e 74 73 20 |me.r11.=|.Points |
|000028c0| 74 6f 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |to the e|nd of th|
|000028d0| 65 20 6e 61 6d 65 0a 72 | 31 32 09 3d 09 4c 49 4e |e name.r|12.=.LIN|
|000028e0| 45 20 28 70 61 73 73 65 | 64 20 69 6e 20 72 31 32 |E (passe|d in r12|
|000028f0| 20 62 79 20 43 41 4c 4c | 29 0a 72 31 33 09 3d 09 | by CALL|).r13.=.|
|00002900| 53 74 61 63 6b 20 70 6f | 69 6e 74 65 72 0a 23 69 |Stack po|inter.#i|
|00002910| 6e 64 65 6e 74 0a 0a 41 | 63 6f 72 6e 20 72 65 63 |ndent..A|corn rec|
|00002920| 6f 6d 6d 65 6e 64 20 6f | 6e 6c 79 20 75 73 69 6e |ommend o|nly usin|
|00002930| 67 20 43 52 45 41 54 45 | 20 69 6d 6d 65 64 69 61 |g CREATE| immedia|
|00002940| 74 65 6c 79 20 61 66 74 | 65 72 20 61 20 3c 4c 56 |tely aft|er a <LV|
|00002950| 42 4c 4e 4b 3d 3e 63 61 | 6c 6c 6c 76 62 6c 6e 6b |BLNK=>ca|lllvblnk|
|00002960| 3e 2e 20 54 68 65 79 27 | 76 65 20 6a 75 73 74 20 |>. They'|ve just |
|00002970| 67 6f 74 20 6e 6f 20 73 | 65 6e 73 65 20 6f 66 20 |got no s|ense of |
|00002980| 61 64 76 65 6e 74 75 72 | 65 2e 2e 2e 0a 43 72 65 |adventur|e....Cre|
|00002990| 61 74 69 6e 67 20 61 20 | 76 61 72 69 61 62 6c 65 |ating a |variable|
|000029a0| 20 6f 66 20 74 68 65 20 | 73 61 6d 65 20 6e 61 6d | of the |same nam|
|000029b0| 65 20 61 73 20 61 6e 20 | 65 78 69 73 74 69 6e 67 |e as an |existing|
|000029c0| 20 6f 6e 65 20 6d 61 79 | 20 77 65 6c 6c 20 67 65 | one may| well ge|
|000029d0| 74 20 2a 76 65 72 79 2a | 20 6d 65 73 73 79 2e 0a |t *very*| messy..|
|000029e0| 0a 52 65 74 75 72 6e 73 | 20 72 65 73 75 6c 74 73 |.Returns| results|
|000029f0| 20 61 73 20 61 20 73 75 | 63 63 65 73 73 66 75 6c | as a su|ccessful|
|00002a00| 20 3c 4c 56 42 4c 4e 4b | 3d 3e 63 61 6c 6c 6c 76 | <LVBLNK|=>calllv|
|00002a10| 62 6c 6e 6b 3e 2e 0a 0a | 55 73 65 73 20 61 6c 6c |blnk>...|Uses all|
|00002a20| 20 72 65 67 69 73 74 65 | 72 73 2e 00 44 41 54 41 | registe|rs..DATA|
|00002a30| 00 02 00 00 55 73 69 6e | 67 20 45 56 41 4c 20 66 |....Usin|g EVAL f|
|00002a40| 72 6f 6d 20 61 73 73 65 | 6d 62 6c 65 72 0a 23 50 |rom asse|mbler.#P|
|00002a50| 61 72 65 6e 74 20 63 61 | 6c 6c 65 78 70 72 0a 23 |arent ca|llexpr.#|
|00002a60| 77 72 61 70 20 6f 66 66 | 0a 23 66 63 6f 64 65 0a |wrap off|.#fcode.|
|00002a70| 44 49 4d 20 63 6f 64 65 | 25 20 38 31 39 32 0a 46 |DIM code|% 8192.F|
|00002a80| 4f 52 20 70 61 73 73 25 | 3d 30 20 54 4f 20 32 20 |OR pass%|=0 TO 2 |
|00002a90| 53 54 45 50 20 32 0a 50 | 25 3d 63 6f 64 65 25 0a |STEP 2.P|%=code%.|
|00002aa0| 5b 4f 50 54 20 70 61 73 | 73 25 0a 20 20 3b 20 6f |[OPT pas|s%. ; o|
|00002ab0| 6e 20 65 6e 74 72 79 20 | 68 65 72 65 2c 20 72 38 |n entry |here, r8|
|00002ac0| 2c 20 72 31 31 2c 20 72 | 31 32 2c 20 72 31 33 2c |, r11, r|12, r13,|
|00002ad0| 20 72 31 34 20 61 6c 6c | 20 63 6f 6e 74 61 69 6e | r14 all| contain|
|00002ae0| 20 75 73 65 66 75 6c 20 | 69 6e 66 6f 0a 20 20 3b | useful |info. ;|
|00002af0| 20 77 65 20 6e 65 65 64 | 20 74 6f 20 63 6f 70 79 | we need| to copy|
|00002b00| 20 72 31 34 20 73 6f 6d | 65 77 68 65 72 65 20 65 | r14 som|ewhere e|
|00002b10| 6c 73 65 0a 20 20 73 74 | 6d 66 64 20 31 33 21 2c |lse. st|mfd 13!,|
|00002b20| 5c 7b 31 34 7d 0a 20 20 | 6d 6f 76 20 37 2c 31 34 |\{14}. |mov 7,14|
|00002b30| 20 3b 20 37 20 3d 20 65 | 6e 76 69 6e 66 6f 20 77 | ; 7 = e|nvinfo w|
|00002b40| 6f 72 64 0a 20 20 0a 20 | 20 61 64 72 20 31 31 2c |ord. . | adr 11,|
|00002b50| 62 61 73 69 63 63 6f 6d | 6d 61 6e 64 0a 20 20 6d |basiccom|mand. m|
|00002b60| 6f 76 20 31 34 2c 31 35 | 3a 61 64 64 20 31 35 2c |ov 14,15|:add 15,|
|00002b70| 37 2c 23 26 34 34 20 3b | 20 42 20 45 58 50 52 0a |7,#&44 ;| B EXPR.|
|00002b80| 20 20 3b 20 72 65 73 75 | 6c 74 20 28 61 6e 20 69 | ; resu|lt (an i|
|00002b90| 6e 74 65 67 65 72 29 20 | 69 73 20 72 65 74 75 72 |nteger) |is retur|
|00002ba0| 6e 65 64 20 69 6e 20 72 | 30 0a 0a 20 20 6c 64 6d |ned in r|0.. ldm|
|00002bb0| 66 64 20 31 33 21 2c 5c | 7b 31 35 7d 5e 0a 0a 0a |fd 13!,\|{15}^...|
|00002bc0| 2e 62 61 73 69 63 63 6f | 6d 6d 61 6e 64 0a 20 20 |.basicco|mmand. |
|00002bd0| 64 63 62 20 22 31 2b 31 | 22 3a 64 63 62 30 0a 20 |dcb "1+1|":dcb0. |
|00002be0| 20 61 6c 69 67 6e 0a 5d | 0a 4e 45 58 54 0a 0a 50 | align.]|.NEXT..P|
|00002bf0| 52 49 4e 54 55 53 52 63 | 6f 64 65 25 0a 23 66 0a |RINTUSRc|ode%.#f.|
|00002c00| 0a 59 6f 75 20 67 65 74 | 20 74 68 72 65 65 20 67 |.You get| three g|
|00002c10| 75 65 73 73 65 73 20 77 | 68 61 74 20 74 68 61 74 |uesses w|hat that|
|00002c20| 20 70 72 69 6e 74 73 20 | 6f 75 74 2e 44 41 54 41 | prints |out.DATA|
|00002c30| f4 02 00 00 42 65 69 6e | 67 20 73 6c 69 67 68 74 |....Bein|g slight|
|00002c40| 6c 79 20 63 6c 65 76 65 | 72 20 77 69 74 68 20 45 |ly cleve|r with E|
|00002c50| 56 41 4c 20 66 72 6f 6d | 20 61 73 73 65 6d 62 6c |VAL from| assembl|
|00002c60| 65 72 0a 23 77 72 61 70 | 20 6f 66 66 0a 23 66 63 |er.#wrap| off.#fc|
|00002c70| 6f 64 65 0a 44 49 4d 20 | 63 6f 64 65 25 20 38 31 |ode.DIM |code% 81|
|00002c80| 39 32 0a 46 4f 52 70 61 | 73 73 25 3d 30 20 54 4f |92.FORpa|ss%=0 TO|
|00002c90| 20 32 20 53 54 45 50 20 | 32 0a 50 25 3d 63 6f 64 | 2 STEP |2.P%=cod|
|00002ca0| 65 25 0a 5b 4f 50 54 20 | 70 61 73 73 25 0a 20 20 |e%.[OPT |pass%. |
|00002cb0| 3b 20 6f 6e 20 65 6e 74 | 72 79 20 68 65 72 65 2c |; on ent|ry here,|
|00002cc0| 20 72 38 2c 20 72 31 31 | 2c 20 72 31 32 2c 20 72 | r8, r11|, r12, r|
|00002cd0| 31 33 2c 20 72 31 34 20 | 61 6c 6c 20 63 6f 6e 74 |13, r14 |all cont|
|00002ce0| 61 69 6e 20 75 73 65 66 | 75 6c 20 69 6e 66 6f 0a |ain usef|ul info.|
|00002cf0| 20 20 3b 20 77 65 20 6e | 65 65 64 20 74 6f 20 63 | ; we n|eed to c|
|00002d00| 6f 70 79 20 72 31 34 20 | 73 6f 6d 65 77 68 65 72 |opy r14 |somewher|
|00002d10| 65 20 65 6c 73 65 0a 20 | 20 73 74 6d 66 64 20 31 |e else. | stmfd 1|
|00002d20| 33 21 2c 5c 7b 31 34 7d | 0a 20 20 6d 6f 76 20 37 |3!,\{14}|. mov 7|
|00002d30| 2c 31 34 20 3b 20 37 20 | 3d 20 65 6e 76 69 6e 66 |,14 ; 7 |= envinf|
|00002d40| 6f 20 77 6f 72 64 0a 20 | 20 0a 20 20 61 64 72 20 |o word. | . adr |
|00002d50| 31 31 2c 42 61 73 69 63 | 43 6f 6d 6d 61 6e 64 0a |11,Basic|Command.|
|00002d60| 20 20 6d 6f 76 20 31 34 | 2c 31 35 3a 61 64 64 20 | mov 14|,15:add |
|00002d70| 31 35 2c 37 2c 23 26 34 | 34 20 3b 20 42 20 45 58 |15,7,#&4|4 ; B EX|
|00002d80| 50 52 0a 20 20 3b 20 66 | 6c 61 67 73 20 61 72 65 |PR. ; f|lags are|
|00002d90| 20 73 65 74 0a 20 20 62 | 6c 65 20 42 61 64 52 65 | set. b|le BadRe|
|00002da0| 73 75 6c 74 0a 20 20 3b | 20 61 6e 20 69 6e 74 20 |sult. ;| an int |
|00002db0| 77 61 73 20 72 65 74 75 | 72 6e 65 64 20 69 6e 20 |was retu|rned in |
|00002dc0| 72 30 0a 0a 20 20 6c 64 | 6d 66 64 20 31 33 21 2c |r0.. ld|mfd 13!,|
|00002dd0| 5c 7b 31 35 7d 5e 0a 0a | 2e 42 61 64 52 65 73 75 |\{15}^..|.BadResu|
|00002de0| 6c 74 0a 20 20 61 64 72 | 20 30 2c 45 72 72 6f 72 |lt. adr| 0,Error|
|00002df0| 42 6c 6f 63 6b 0a 20 20 | 73 77 69 20 22 4f 53 5f |Block. |swi "OS_|
|00002e00| 47 65 6e 65 72 61 74 65 | 45 72 72 6f 72 22 0a 2e |Generate|Error"..|
|00002e10| 45 72 72 6f 72 42 6c 6f | 63 6b 0a 20 20 64 63 64 |ErrorBlo|ck. dcd|
|00002e20| 30 3a 64 63 62 22 54 68 | 61 74 27 73 20 6e 6f 74 |0:dcb"Th|at's not|
|00002e30| 20 61 6e 20 69 6e 74 65 | 67 65 72 21 22 3a 64 63 | an inte|ger!":dc|
|00002e40| 62 30 3a 61 6c 69 67 6e | 0a 20 20 0a 0a 2e 42 61 |b0:align|. ...Ba|
|00002e50| 73 69 63 43 6f 6d 6d 61 | 6e 64 0a 20 20 64 63 62 |sicComma|nd. dcb|
|00002e60| 20 31 36 34 20 3b 20 6e | 6f 74 65 20 74 68 61 74 | 164 ; n|ote that|
|00002e70| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 74 6f 6b | this is| the tok|
|00002e80| 65 6e 20 66 6f 72 20 46 | 4e 0a 20 20 64 63 62 20 |en for F|N. dcb |
|00002e90| 22 77 6f 77 5f 63 6c 65 | 76 65 72 22 3a 64 63 62 |"wow_cle|ver":dcb|
|00002ea0| 30 3a 61 6c 69 67 6e 0a | 5d 0a 4e 45 58 54 0a 0a |0:align.|].NEXT..|
|00002eb0| 50 52 49 4e 54 55 53 52 | 63 6f 64 65 25 0a 45 4e |PRINTUSR|code%.EN|
|00002ec0| 44 0a 0a 44 45 46 46 4e | 77 6f 77 5f 63 6c 65 76 |D..DEFFN|wow_clev|
|00002ed0| 65 72 0a 4c 4f 43 41 4c | 72 65 73 0a 49 4e 50 55 |er.LOCAL|res.INPU|
|00002ee0| 54 22 50 6c 65 61 73 65 | 20 67 69 76 65 20 6d 65 |T"Please| give me|
|00002ef0| 20 61 6e 20 69 6e 74 65 | 67 65 72 20 22 3b 72 65 | an inte|ger ";re|
|00002f00| 73 0a 49 46 20 72 65 73 | 3d 49 4e 54 72 65 73 3a |s.IF res|=INTres:|
|00002f10| 3d 49 4e 54 72 65 73 0a | 3d 72 65 73 0a 23 66 0a |=INTres.|=res.#f.|
|00002f20| 44 41 54 41 72 05 00 00 | 45 58 50 52 20 2d 20 65 |DATAr...|EXPR - e|
|00002f30| 78 70 72 65 73 73 69 6f | 6e 20 61 6e 61 6c 79 73 |xpressio|n analys|
|00002f40| 65 72 0a 23 50 61 72 65 | 6e 74 20 43 41 4c 4c 0a |er.#Pare|nt CALL.|
|00002f50| 4f 6e 20 65 6e 74 72 79 | 20 3a 0a 23 69 6e 64 65 |On entry| :.#inde|
|00002f60| 6e 74 20 32 0a 72 38 09 | 3d 09 41 52 47 50 20 2d |nt 2.r8.|=.ARGP -|
|00002f70| 20 42 61 73 69 63 27 73 | 20 77 6f 72 6b 73 70 61 | Basic's| workspa|
|00002f80| 63 65 20 28 61 73 20 70 | 61 73 73 65 64 20 69 6e |ce (as p|assed in|
|00002f90| 20 72 38 20 62 79 20 43 | 41 4c 4c 29 0a 72 31 31 | r8 by C|ALL).r11|
|00002fa0| 09 3d 09 50 6f 69 6e 74 | 65 72 20 74 6f 20 73 74 |.=.Point|er to st|
|00002fb0| 61 72 74 20 6f 66 20 73 | 74 72 69 6e 67 0a 72 31 |art of s|tring.r1|
|00002fc0| 32 09 3d 09 4c 49 4e 45 | 2c 20 66 6f 72 20 65 72 |2.=.LINE|, for er|
|00002fd0| 72 6f 72 20 72 65 70 6f | 72 74 69 6e 67 20 28 61 |ror repo|rting (a|
|00002fe0| 73 20 70 61 73 73 65 64 | 20 69 6e 20 72 31 32 20 |s passed| in r12 |
|00002ff0| 62 79 20 43 41 4c 4c 29 | 0a 72 31 33 09 3d 09 73 |by CALL)|.r13.=.s|
|00003000| 74 61 63 6b 20 70 6f 69 | 6e 74 65 72 20 28 61 73 |tack poi|nter (as|
|00003010| 20 70 61 73 73 65 64 20 | 69 6e 20 72 31 33 20 62 | passed |in r13 b|
|00003020| 79 20 43 41 4c 4c 29 0a | 23 69 6e 64 65 6e 74 20 |y CALL).|#indent |
|00003030| 30 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 61 6e 79 |0..Note |that any|
|00003040| 20 73 74 72 69 6e 67 20 | 74 68 61 74 20 69 73 20 | string |that is |
|00003050| 70 61 73 73 65 64 20 6d | 75 73 74 20 62 65 20 74 |passed m|ust be t|
|00003060| 6f 6b 65 6e 69 73 65 64 | 2e 20 55 73 65 20 3c 4d |okenised|. Use <M|
|00003070| 41 54 43 48 3d 3e 63 61 | 6c 6c 6d 61 74 63 68 3e |ATCH=>ca|llmatch>|
|00003080| 20 6f 72 20 64 6f 20 69 | 74 20 79 6f 75 72 73 65 | or do i|t yourse|
|00003090| 6c 66 2e 20 41 20 74 65 | 78 74 20 65 64 69 74 6f |lf. A te|xt edito|
|000030a0| 72 20 77 68 69 63 68 20 | 74 6f 6b 65 6e 69 73 65 |r which |tokenise|
|000030b0| 73 20 61 73 20 79 6f 75 | 20 74 79 70 65 20 2f 63 |s as you| type /c|
|000030c0| 61 6e 2f 20 62 65 20 61 | 20 68 65 6c 70 20 68 65 |an/ be a| help he|
|000030d0| 72 65 2e 20 28 53 6f 72 | 72 79 2c 20 47 75 74 74 |re. (Sor|ry, Gutt|
|000030e0| 6f 72 6d 20 3b 2d 29 0a | 0a 54 68 65 20 77 61 79 |orm ;-).|.The way|
|000030f0| 20 74 68 65 20 76 61 6c | 75 65 20 69 73 20 72 65 | the val|ue is re|
|00003100| 74 75 72 6e 65 64 20 69 | 73 20 64 65 70 65 6e 64 |turned i|s depend|
|00003110| 65 6e 74 20 6f 6e 20 74 | 79 70 65 2e 20 4f 6e 20 |ent on t|ype. On |
|00003120| 65 78 69 74 0a 23 74 61 | 62 20 66 41 6c 69 67 6e |exit.#ta|b fAlign|
|00003130| 20 52 69 67 68 74 2c 66 | 41 6c 69 67 6e 20 4c 65 | Right,f|Align Le|
|00003140| 66 74 0a 23 69 6e 64 65 | 6e 74 20 32 0a 5a 20 66 |ft.#inde|nt 2.Z f|
|00003150| 6c 61 67 09 3d 20 31 20 | 3d 3e 20 74 68 65 20 65 |lag.= 1 |=> the e|
|00003160| 78 70 72 65 73 73 69 6f | 6e 20 77 61 73 20 61 20 |xpressio|n was a |
|00003170| 73 74 72 69 6e 67 0a 5a | 20 66 6c 61 67 09 3d 20 |string.Z| flag.= |
|00003180| 30 20 3d 3e 09 74 68 65 | 20 65 78 70 72 65 73 73 |0 =>.the| express|
|00003190| 69 6f 6e 20 77 61 73 20 | 61 20 6e 75 6d 62 65 72 |ion was |a number|
|000031a0| 0a 20 09 20 09 4e 20 66 | 6c 61 67 20 3d 20 31 20 |. . .N f|lag = 1 |
|000031b0| 3d 3e 20 65 78 70 72 65 | 73 73 69 6f 6e 20 77 61 |=> expre|ssion wa|
|000031c0| 73 20 61 20 66 6c 6f 61 | 74 0a 20 09 20 09 4e 20 |s a floa|t. . .N |
|000031d0| 66 6c 61 67 20 3d 20 30 | 20 3d 3e 20 69 6e 74 0a |flag = 0| => int.|
|000031e0| 72 39 09 3d 20 54 79 70 | 65 20 5b 74 6f 20 72 65 |r9.= Typ|e [to re|
|000031f0| 63 72 65 61 74 65 20 74 | 68 65 20 66 6c 61 67 73 |create t|he flags|
|00003200| 20 61 73 20 61 62 6f 76 | 65 2c 20 75 73 65 20 7b | as abov|e, use {|
|00003210| 66 63 6f 64 65 7d 54 45 | 51 20 72 39 2c 23 30 7b |fcode}TE|Q r9,#0{|
|00003220| 66 7d 5d 0a 72 31 30 09 | 3d 20 46 69 72 73 74 20 |f}].r10.|= First |
|00003230| 63 68 61 72 61 63 74 65 | 72 20 61 66 74 65 72 20 |characte|r after |
|00003240| 74 68 65 20 65 78 70 72 | 65 73 73 69 6f 6e 0a 72 |the expr|ession.r|
|00003250| 31 31 09 3d 20 50 6f 69 | 6e 74 65 72 20 74 6f 20 |11.= Poi|nter to |
|00003260| 6e 65 78 74 20 63 68 61 | 72 61 63 74 65 72 20 61 |next cha|racter a|
|00003270| 66 74 65 72 20 72 31 30 | 0a 23 69 6e 64 65 6e 74 |fter r10|.#indent|
|00003280| 0a 0a 49 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |..If the| result |
|00003290| 77 61 73 20 61 6e 20 69 | 6e 74 65 67 65 72 2c 20 |was an i|nteger, |
|000032a0| 69 74 20 69 73 20 72 65 | 74 75 72 6e 65 64 20 69 |it is re|turned i|
|000032b0| 6e 20 52 30 2e 0a 49 66 | 20 74 68 65 20 72 65 73 |n R0..If| the res|
|000032c0| 75 6c 74 20 77 61 73 20 | 61 20 66 6c 6f 61 74 2c |ult was |a float,|
|000032d0| 20 69 74 20 69 73 20 72 | 65 74 75 72 6e 65 64 20 | it is r|eturned |
|000032e0| 69 6e 20 72 30 2e 2e 72 | 33 2c 20 73 75 69 74 61 |in r0..r|3, suita|
|000032f0| 62 6c 65 20 66 6f 72 20 | 69 6d 6d 65 64 69 61 74 |ble for |immediat|
|00003300| 65 20 75 73 65 20 77 69 | 74 68 20 74 68 65 20 3c |e use wi|th the <|
|00003310| 61 64 64 69 74 69 6f 6e | 61 6c 20 72 6f 75 74 69 |addition|al routi|
|00003320| 6e 65 73 3d 3e 63 61 6c | 6c 34 3e 2e 0a 49 66 20 |nes=>cal|l4>..If |
|00003330| 74 68 65 20 72 65 73 75 | 6c 74 20 77 61 73 20 61 |the resu|lt was a|
|00003340| 20 73 74 72 69 6e 67 2c | 20 69 74 20 69 73 20 72 | string,| it is r|
|00003350| 65 74 75 72 6e 65 64 20 | 61 74 20 3c 53 54 52 41 |eturned |at <STRA|
|00003360| 43 43 3d 3e 63 61 6c 6c | 73 74 72 61 63 63 3e 20 |CC=>call|stracc> |
|00003370| 61 6e 64 20 72 32 20 70 | 6f 69 6e 74 73 20 74 6f |and r2 p|oints to|
|00003380| 20 69 74 73 20 65 6e 64 | 2e 0a 20 20 20 28 53 74 | its end|.. (St|
|00003390| 72 69 6e 67 20 6c 65 6e | 74 68 20 3d 20 72 32 2d |ring len|th = r2-|
|000033a0| 53 54 52 41 43 43 29 0a | 0a 41 72 67 75 61 62 6c |STRACC).|.Arguabl|
|000033b0| 79 20 74 68 65 20 6d 6f | 73 74 20 75 73 65 66 75 |y the mo|st usefu|
|000033c0| 6c 20 70 75 72 70 6f 73 | 65 20 6f 66 20 74 68 69 |l purpos|e of thi|
|000033d0| 73 20 63 61 6c 6c 20 69 | 73 20 74 6f 20 75 73 65 |s call i|s to use|
|000033e0| 20 42 61 73 69 63 27 73 | 20 45 56 41 4c 20 66 75 | Basic's| EVAL fu|
|000033f0| 6e 63 74 69 6f 6e 20 74 | 6f 20 63 61 6c 6c 20 46 |nction t|o call F|
|00003400| 4e 73 2c 20 62 75 74 20 | 61 63 63 65 73 73 20 74 |Ns, but |access t|
|00003410| 6f 20 74 68 65 20 74 72 | 69 67 20 66 75 6e 63 74 |o the tr|ig funct|
|00003420| 69 6f 6e 73 20 69 73 20 | 61 6c 73 6f 20 2a 76 65 |ions is |also *ve|
|00003430| 72 79 2a 20 68 61 6e 64 | 79 2e 0a 0a 54 68 65 72 |ry* hand|y...Ther|
|00003440| 65 20 69 73 20 61 20 3c | 73 69 6d 70 6c 65 20 65 |e is a <|simple e|
|00003450| 78 61 6d 70 6c 65 3d 3e | 63 61 6c 6c 65 76 61 6c |xample=>|calleval|
|00003460| 3e 20 61 6e 64 20 61 20 | 3c 63 6c 65 76 65 72 20 |> and a |<clever |
|00003470| 65 78 61 6d 70 6c 65 3d | 3e 63 61 6c 6c 65 76 61 |example=|>calleva|
|00003480| 6c 32 3e 20 6f 66 20 75 | 73 69 6e 67 20 45 58 50 |l2> of u|sing EXP|
|00003490| 52 2e 00 00 44 41 54 41 | 28 06 00 00 46 50 20 61 |R...DATA|(...FP a|
|000034a0| 64 64 69 74 69 6f 6e 0a | 54 68 65 20 66 6f 6c 6c |ddition.|The foll|
|000034b0| 6f 77 69 6e 67 20 69 73 | 20 61 20 42 61 73 69 63 |owing is| a Basic|
|000034c0| 20 70 72 6f 67 72 61 6d | 2c 20 77 68 69 63 68 20 | program|, which |
|000034d0| 2a 73 68 6f 75 6c 64 2a | 20 77 6f 72 6b 2e 20 3a |*should*| work. :|
|000034e0| 2d 29 0a 0a 23 77 72 61 | 70 20 6f 66 66 3b 66 43 |-)..#wra|p off;fC|
|000034f0| 6f 64 65 0a 44 49 4d 20 | 63 6f 64 65 25 20 38 31 |ode.DIM |code% 81|
|00003500| 39 32 0a 0a 46 4f 52 20 | 70 61 73 73 25 3d 30 20 |92..FOR |pass%=0 |
|00003510| 54 4f 20 32 20 53 54 45 | 50 20 32 0a 50 25 3d 63 |TO 2 STE|P 2.P%=c|
|00003520| 6f 64 65 25 0a 5b 4f 50 | 54 20 70 61 73 73 25 0a |ode%.[OP|T pass%.|
|00003530| 2e 66 70 5f 61 64 64 5f | 64 65 6d 6f 0a 20 20 3b |.fp_add_|demo. ;|
|00003540| 20 75 73 61 67 65 20 2d | 20 43 41 4c 4c 20 66 70 | usage -| CALL fp|
|00003550| 5f 61 64 64 5f 64 65 6d | 6f 0a 20 20 3b 20 77 69 |_add_dem|o. ; wi|
|00003560| 74 68 20 41 25 3d 6e 75 | 6d 62 65 72 20 6f 6e 65 |th A%=nu|mber one|
|00003570| 2c 20 42 25 3d 6e 75 6d | 62 65 72 20 74 77 6f 0a |, B%=num|ber two.|
|00003580| 20 20 3b 20 74 68 69 73 | 20 72 6f 75 74 69 6e 65 | ; this| routine|
|00003590| 20 63 6f 6e 76 65 72 74 | 73 20 62 6f 74 68 20 69 | convert|s both i|
|000035a0| 6e 74 65 67 65 72 73 20 | 74 6f 20 66 6c 6f 61 74 |ntegers |to float|
|000035b0| 69 6e 67 20 70 6f 69 6e | 74 20 76 61 6c 75 65 73 |ing poin|t values|
|000035c0| 2c 0a 20 20 3b 20 61 64 | 64 73 20 74 68 65 6d 20 |,. ; ad|ds them |
|000035d0| 74 6f 67 65 74 68 65 72 | 20 28 61 73 20 66 6c 6f |together| (as flo|
|000035e0| 61 74 69 6e 67 20 70 6f | 69 6e 74 73 29 0a 20 20 |ating po|ints). |
|000035f0| 3b 20 61 6e 64 20 73 74 | 6f 72 65 73 20 74 68 65 |; and st|ores the|
|00003600| 20 72 65 73 75 6c 74 20 | 69 6e 20 2e 66 70 5f 61 | result |in .fp_a|
|00003610| 64 64 5f 64 65 6d 6f 5f | 72 65 73 75 6c 74 0a 0a |dd_demo_|result..|
|00003620| 20 20 3b 20 66 69 72 73 | 74 20 74 68 69 6e 67 20 | ; firs|t thing |
|00003630| 69 73 20 74 6f 20 74 61 | 6b 65 20 61 20 63 6f 70 |is to ta|ke a cop|
|00003640| 79 20 6f 66 20 74 68 65 | 20 65 6e 76 20 69 6e 66 |y of the| env inf|
|00003650| 6f 20 77 6f 72 64 0a 20 | 20 6d 6f 76 20 38 2c 31 |o word. | mov 8,1|
|00003660| 34 0a 20 20 3b 20 6d 6f | 76 65 20 72 31 20 73 6f |4. ; mo|ve r1 so|
|00003670| 6d 65 77 68 65 72 65 20 | 77 68 65 72 65 20 69 74 |mewhere |where it|
|00003680| 20 77 6f 6e 27 74 20 62 | 65 20 63 6f 72 72 75 70 | won't b|e corrup|
|00003690| 74 65 64 0a 20 20 3b 20 | 28 72 34 2e 2e 72 37 20 |ted. ; |(r4..r7 |
|000036a0| 61 72 65 20 63 6f 72 72 | 75 70 74 65 64 20 62 79 |are corr|upted by|
|000036b0| 20 73 6f 6d 65 20 6f 70 | 65 72 61 74 69 6f 6e 73 | some op|erations|
|000036c0| 2c 0a 20 20 3b 20 20 61 | 6e 64 20 72 39 20 69 73 |,. ; a|nd r9 is|
|000036d0| 20 75 73 65 64 20 62 79 | 20 74 68 65 20 46 50 20 | used by| the FP |
|000036e0| 72 6f 75 74 69 6e 65 73 | 29 0a 20 20 6d 6f 76 20 |routines|). mov |
|000036f0| 31 30 2c 31 0a 20 20 3b | 20 6e 6f 77 20 77 65 20 |10,1. ;| now we |
|00003700| 66 6c 6f 61 74 20 72 30 | 0a 20 20 6d 6f 76 20 31 |float r0|. mov 1|
|00003710| 34 2c 31 35 20 20 20 20 | 20 20 3b 20 73 65 74 20 |4,15 | ; set |
|00003720| 75 70 20 74 68 65 20 6c | 69 6e 6b 20 72 65 67 69 |up the l|ink regi|
|00003730| 73 74 65 72 0a 20 20 61 | 64 64 20 31 35 2c 38 2c |ster. a|dd 15,8,|
|00003740| 23 26 37 30 20 20 3b 20 | 62 20 46 4c 4f 41 54 0a |#&70 ; |b FLOAT.|
|00003750| 20 20 3b 20 6e 6f 77 20 | 72 30 2e 2e 72 33 20 69 | ; now |r0..r3 i|
|00003760| 73 20 74 68 65 20 66 6c | 6f 61 74 65 64 20 76 65 |s the fl|oated ve|
|00003770| 72 73 69 6f 6e 20 6f 66 | 20 41 25 2c 0a 20 20 3b |rsion of| A%,. ;|
|00003780| 20 61 6e 64 20 77 65 20 | 77 61 6e 74 20 74 6f 20 | and we |want to |
|00003790| 73 74 6f 72 65 20 74 68 | 65 20 61 63 63 75 6d 75 |store th|e accumu|
|000037a0| 6c 61 74 6f 72 0a 20 20 | 61 64 72 20 39 2c 66 70 |lator. |adr 9,fp|
|000037b0| 5f 61 64 64 5f 64 65 6d | 6f 5f 72 65 73 75 6c 74 |_add_dem|o_result|
|000037c0| 0a 20 20 6d 6f 76 20 31 | 34 2c 31 35 20 20 20 20 |. mov 1|4,15 |
|000037d0| 20 20 3b 20 73 65 74 20 | 75 70 20 74 68 65 20 6c | ; set |up the l|
|000037e0| 69 6e 6b 20 61 67 61 69 | 6e 0a 20 20 61 64 64 20 |ink agai|n. add |
|000037f0| 31 35 2c 38 2c 23 26 35 | 38 20 20 3b 20 62 20 46 |15,8,#&5|8 ; b F|
|00003800| 53 54 41 0a 20 20 3b 20 | 5b 72 39 5d 20 3d 20 72 |STA. ; |[r9] = r|
|00003810| 30 2e 2e 72 33 0a 20 20 | 6d 6f 76 20 30 2c 31 30 |0..r3. |mov 0,10|
|00003820| 20 20 20 20 20 20 20 3b | 20 69 6e 69 74 69 61 6c | ;| initial|
|00003830| 20 72 31 20 28 42 25 29 | 0a 20 20 6d 6f 76 20 31 | r1 (B%)|. mov 1|
|00003840| 34 2c 31 35 20 20 20 20 | 20 20 3b 20 6c 69 6e 6b |4,15 | ; link|
|00003850| 20 61 67 61 69 6e 0a 20 | 20 61 64 64 20 31 35 2c | again. | add 15,|
|00003860| 38 2c 23 26 37 30 20 20 | 3b 20 62 20 46 4c 4f 41 |8,#&70 |; b FLOA|
|00003870| 54 0a 20 20 3b 20 6e 6f | 77 20 72 30 2e 2e 72 33 |T. ; no|w r0..r3|
|00003880| 20 69 73 20 66 6c 6f 61 | 74 20 42 25 0a 20 20 61 | is floa|t B%. a|
|00003890| 64 72 20 39 2c 66 70 5f | 61 64 64 5f 64 65 6d 6f |dr 9,fp_|add_demo|
|000038a0| 5f 72 65 73 75 6c 74 0a | 20 20 6d 6f 76 20 31 34 |_result.| mov 14|
|000038b0| 2c 31 35 0a 20 20 61 64 | 64 20 31 35 2c 38 2c 23 |,15. ad|d 15,8,#|
|000038c0| 26 36 30 20 20 3b 20 62 | 20 46 41 44 44 0a 20 20 |&60 ; b| FADD. |
|000038d0| 3b 20 72 30 2e 2e 72 33 | 20 3d 20 5b 72 39 5d 20 |; r0..r3| = [r9] |
|000038e0| 2b 20 28 72 30 2e 2e 72 | 33 29 0a 20 20 0a 20 20 |+ (r0..r|3). . |
|000038f0| 3b 20 66 69 6e 61 6c 6c | 79 2c 20 77 65 20 73 74 |; finall|y, we st|
|00003900| 6f 72 65 20 74 68 65 20 | 76 61 6c 75 65 0a 20 20 |ore the |value. |
|00003910| 61 64 72 20 39 2c 66 70 | 5f 61 64 64 5f 64 65 6d |adr 9,fp|_add_dem|
|00003920| 6f 5f 72 65 73 75 6c 74 | 0a 20 20 6d 6f 76 20 31 |o_result|. mov 1|
|00003930| 34 2c 31 35 0a 20 20 61 | 64 64 20 31 35 2c 38 2c |4,15. a|dd 15,8,|
|00003940| 23 26 35 38 20 20 3b 20 | 62 20 46 53 54 41 0a 20 |#&58 ; |b FSTA. |
|00003950| 20 0a 20 20 3b 20 61 6e | 64 20 65 78 69 74 0a 20 | . ; an|d exit. |
|00003960| 20 6d 6f 76 73 20 31 35 | 2c 38 20 20 20 20 20 20 | movs 15|,8 |
|00003970| 3b 20 6e 6f 74 65 20 74 | 68 61 74 20 74 68 65 20 |; note t|hat the |
|00003980| 27 6c 69 6e 6b 27 20 72 | 65 67 69 73 74 65 72 20 |'link' r|egister |
|00003990| 6d 61 79 20 68 61 76 65 | 20 63 68 61 6e 67 65 64 |may have| changed|
|000039a0| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,. | |
|000039b0| 20 20 20 3b 20 62 75 74 | 20 74 68 65 20 72 65 73 | ; but| the res|
|000039c0| 75 6c 74 20 69 73 20 74 | 68 65 20 73 61 6d 65 21 |ult is t|he same!|
|000039d0| 0a 20 20 0a 2e 66 70 5f | 61 64 64 5f 64 65 6d 6f |. ..fp_|add_demo|
|000039e0| 5f 72 65 73 75 6c 74 3a | 64 63 64 30 3a 64 63 64 |_result:|dcd0:dcd|
|000039f0| 30 0a 20 20 3b 20 35 20 | 62 79 74 65 73 20 72 65 |0. ; 5 |bytes re|
|00003a00| 71 75 69 72 65 64 20 68 | 65 72 65 2c 20 61 73 20 |quired h|ere, as |
|00003a10| 69 74 27 73 20 61 20 46 | 50 20 72 65 73 75 6c 74 |it's a F|P result|
|00003a20| 0a 5d 0a 4e 45 58 54 0a | 41 25 3d 31 32 33 3a 42 |.].NEXT.|A%=123:B|
|00003a30| 25 3d 34 35 36 3a 43 41 | 4c 4c 20 66 70 5f 61 64 |%=456:CA|LL fp_ad|
|00003a40| 64 5f 64 65 6d 6f 0a 50 | 52 49 4e 54 20 22 54 68 |d_demo.P|RINT "Th|
|00003a50| 65 20 72 65 73 75 6c 74 | 20 6f 66 20 61 64 64 69 |e result| of addi|
|00003a60| 6e 67 20 74 68 65 20 69 | 6e 74 65 67 65 72 73 22 |ng the i|ntegers"|
|00003a70| 0a 50 52 49 4e 54 20 41 | 25 3b 22 20 61 6e 64 20 |.PRINT A|%;" and |
|00003a80| 22 3b 42 25 3b 22 20 69 | 73 20 61 20 66 6c 6f 61 |";B%;" i|s a floa|
|00003a90| 74 69 6e 67 20 70 6f 69 | 6e 74 20 76 61 6c 75 65 |ting poi|nt value|
|00003aa0| 20 3a 20 22 3b 7c 66 70 | 5f 61 64 64 5f 64 65 6d | : ";|fp|_add_dem|
|00003ab0| 6f 5f 72 65 73 75 6c 74 | 0a 23 66 0a 44 41 54 41 |o_result|.#f.DATA|
|00003ac0| 57 02 00 00 46 50 20 73 | 71 72 74 0a 41 6e 6f 74 |W...FP s|qrt.Anot|
|00003ad0| 68 65 72 20 42 61 73 69 | 63 20 70 72 6f 67 72 61 |her Basi|c progra|
|00003ae0| 6d 2c 20 68 6f 70 65 66 | 75 6c 6c 79 20 77 6f 72 |m, hopef|ully wor|
|00003af0| 6b 69 6e 67 20 63 6f 72 | 72 65 63 74 6c 79 2e 0a |king cor|rectly..|
|00003b00| 0a 23 77 72 61 70 20 6f | 66 66 3b 66 63 6f 64 65 |.#wrap o|ff;fcode|
|00003b10| 0a 44 49 4d 20 63 6f 64 | 65 25 20 38 31 39 32 0a |.DIM cod|e% 8192.|
|00003b20| 46 4f 52 70 61 73 73 25 | 3d 30 20 54 4f 20 32 20 |FORpass%|=0 TO 2 |
|00003b30| 53 54 45 50 20 32 0a 50 | 25 3d 63 6f 64 65 25 0a |STEP 2.P|%=code%.|
|00003b40| 5b 4f 50 54 20 70 61 73 | 73 25 0a 2e 66 70 5f 73 |[OPT pas|s%..fp_s|
|00003b50| 71 72 74 0a 20 20 3b 20 | 6f 6e 20 65 6e 74 72 79 |qrt. ; |on entry|
|00003b60| 20 72 30 20 3d 20 69 6e | 74 65 67 65 72 0a 20 20 | r0 = in|teger. |
|00003b70| 3b 20 6f 6e 20 65 78 69 | 74 20 20 72 30 20 3d 20 |; on exi|t r0 = |
|00003b80| 69 6e 74 20 28 73 71 72 | 74 20 65 6e 74 72 79 20 |int (sqr|t entry |
|00003b90| 72 30 29 0a 20 20 0a 20 | 20 6d 6f 76 20 38 2c 31 |r0). . | mov 8,1|
|00003ba0| 34 20 20 3b 20 74 61 6b | 65 20 61 20 63 6f 70 79 |4 ; tak|e a copy|
|00003bb0| 20 6f 66 20 74 68 65 20 | 65 6e 76 20 69 6e 66 6f | of the |env info|
|00003bc0| 20 77 6f 72 64 0a 20 20 | 0a 20 20 6d 6f 76 20 31 | word. |. mov 1|
|00003bd0| 34 2c 31 35 3a 61 64 64 | 20 31 35 2c 38 2c 23 26 |4,15:add| 15,8,#&|
|00003be0| 37 30 20 3b 20 66 6c 6f | 61 74 0a 20 20 0a 20 20 |70 ; flo|at. . |
|00003bf0| 3b 20 72 30 2e 2e 72 33 | 20 3d 20 66 6c 6f 61 74 |; r0..r3| = float|
|00003c00| 0a 20 20 0a 20 20 6d 6f | 76 20 31 34 2c 31 35 3a |. . mo|v 14,15:|
|00003c10| 61 64 64 20 31 35 2c 38 | 2c 23 26 37 38 20 3b 20 |add 15,8|,#&78 ; |
|00003c20| 66 73 71 72 74 0a 20 20 | 0a 20 20 6d 6f 76 20 31 |fsqrt. |. mov 1|
|00003c30| 34 2c 31 35 3a 61 64 64 | 20 31 35 2c 38 2c 23 26 |4,15:add| 15,8,#&|
|00003c40| 37 34 20 3b 20 66 69 78 | 0a 20 20 0a 20 20 6d 6f |74 ; fix|. . mo|
|00003c50| 76 73 20 31 35 2c 38 0a | 5d 0a 4e 45 58 54 0a 0a |vs 15,8.|].NEXT..|
|00003c60| 41 25 3d 52 4e 44 28 32 | 30 30 30 30 29 0a 50 52 |A%=RND(2|0000).PR|
|00003c70| 49 4e 54 22 41 20 72 6f | 75 67 68 20 73 71 75 61 |INT"A ro|ugh squa|
|00003c80| 72 65 20 72 6f 6f 74 20 | 6f 66 20 22 3b 41 25 3b |re root |of ";A%;|
|00003c90| 22 20 69 73 20 22 3b 55 | 53 52 66 70 5f 73 71 72 |" is ";U|SRfp_sqr|
|00003ca0| 74 0a 50 52 49 4e 54 22 | 54 68 69 73 20 63 6f 6d |t.PRINT"|This com|
|00003cb0| 70 61 72 65 73 20 77 69 | 74 68 20 42 61 73 69 63 |pares wi|th Basic|
|00003cc0| 27 73 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |'s float|ing poin|
|00003cd0| 74 20 76 61 6c 75 65 20 | 6f 66 20 22 3b 53 51 52 |t value |of ";SQR|
|00003ce0| 28 41 25 29 0a 50 52 49 | 4e 54 22 61 6e 64 20 49 |(A%).PRI|NT"and I|
|00003cf0| 4e 54 53 51 52 20 76 61 | 6c 75 65 20 6f 66 20 22 |NTSQR va|lue of "|
|00003d00| 3b 49 4e 54 53 51 52 28 | 41 25 29 0a 45 4e 44 0a |;INTSQR(|A%).END.|
|00003d10| 23 66 0a 00 44 41 54 41 | 23 02 00 00 4c 56 42 4c |#f..DATA|#...LVBL|
|00003d20| 4e 4b 20 2d 20 4c 6f 6f | 6b 20 75 70 20 61 20 76 |NK - Loo|k up a v|
|00003d30| 61 72 69 61 62 6c 65 0a | 4f 6e 20 65 6e 74 72 79 |ariable.|On entry|
|00003d40| 0a 23 69 6e 64 65 6e 74 | 20 32 0a 72 38 09 3d 09 |.#indent| 2.r8.=.|
|00003d50| 41 52 47 50 0a 72 31 31 | 09 3d 09 50 6f 69 6e 74 |ARGP.r11|.=.Point|
|00003d60| 65 72 20 74 6f 20 73 74 | 61 72 74 20 6f 66 20 6e |er to st|art of n|
|00003d70| 61 6d 65 0a 72 31 32 09 | 3d 09 4c 49 4e 45 0a 72 |ame.r12.|=.LINE.r|
|00003d80| 31 33 09 3d 09 53 74 61 | 63 6b 20 70 6f 69 6e 74 |13.=.Sta|ck point|
|00003d90| 65 72 0a 23 69 6e 64 65 | 6e 74 0a 0a 49 66 20 61 |er.#inde|nt..If a|
|00003da0| 20 76 61 6c 69 64 20 76 | 61 72 69 61 62 6c 65 20 | valid v|ariable |
|00003db0| 6e 61 6d 65 20 69 73 20 | 66 6f 75 6e 64 2c 20 6f |name is |found, o|
|00003dc0| 6e 20 65 78 69 74 0a 23 | 69 6e 64 65 6e 74 20 32 |n exit.#|indent 2|
|00003dd0| 0a 7a 20 66 6c 61 67 09 | 3d 09 30 0a 72 30 09 3d |.z flag.|=.0.r0.=|
|00003de0| 09 41 64 64 72 65 73 73 | 20 6f 66 20 6c 2d 76 61 |.Address| of l-va|
|00003df0| 6c 75 65 0a 72 39 09 3d | 09 3c 54 79 70 65 3d 3e |lue.r9.=|.<Type=>|
|00003e00| 63 61 6c 6c 31 3e 20 6f | 66 20 6c 2d 76 61 6c 75 |call1> o|f l-valu|
|00003e10| 65 0a 23 69 6e 64 65 6e | 74 0a 0a 49 66 20 61 20 |e.#inden|t..If a |
|00003e20| 76 61 72 69 61 62 6c 65 | 20 77 61 73 20 6e 6f 74 |variable| was not|
|00003e30| 20 66 6f 75 6e 64 2c 20 | 6f 6e 20 65 78 69 74 0a | found, |on exit.|
|00003e40| 23 69 6e 64 65 6e 74 20 | 32 0a 7a 20 66 6c 61 67 |#indent |2.z flag|
|00003e50| 09 3d 09 31 0a 63 20 66 | 6c 61 67 09 3d 09 31 20 |.=.1.c f|lag.=.1 |
|00003e60| 74 6f 20 69 6e 64 69 63 | 61 74 65 20 64 65 66 69 |to indic|ate defi|
|00003e70| 6e 69 74 65 6c 79 20 77 | 61 73 6e 27 74 20 61 20 |nitely w|asn't a |
|00003e80| 76 61 72 69 61 62 6c 65 | 20 6e 61 6d 65 0a 63 20 |variable| name.c |
|00003e90| 66 6c 61 67 09 3d 09 30 | 20 74 6f 20 69 6e 64 69 |flag.=.0| to indi|
|00003ea0| 63 61 74 65 20 74 68 61 | 74 20 69 74 20 6d 61 79 |cate tha|t it may|
|00003eb0| 20 68 61 76 65 20 62 65 | 65 6e 20 61 20 76 61 72 | have be|en a var|
|00003ec0| 69 61 62 6c 65 20 74 68 | 61 74 20 68 61 64 6e 27 |iable th|at hadn'|
|00003ed0| 74 20 62 65 65 6e 20 63 | 72 65 61 74 65 64 20 79 |t been c|reated y|
|00003ee0| 65 74 0a 52 65 67 69 73 | 74 65 72 73 20 61 72 65 |et.Regis|ters are|
|00003ef0| 20 73 65 74 20 75 70 20 | 66 6f 72 20 61 20 63 61 | set up |for a ca|
|00003f00| 6c 6c 20 74 6f 20 3c 43 | 52 45 41 54 45 3d 3e 63 |ll to <C|REATE=>c|
|00003f10| 61 6c 6c 63 72 65 61 74 | 65 3e 0a 23 69 6e 64 65 |allcreat|e>.#inde|
|00003f20| 6e 74 0a 0a 55 73 65 73 | 20 61 6c 6c 20 72 65 67 |nt..Uses| all reg|
|00003f30| 69 73 74 65 72 73 2e 00 | 44 41 54 41 90 04 00 00 |isters..|DATA....|
|00003f40| 4d 41 54 43 48 20 2d 20 | 53 74 72 69 6e 67 20 74 |MATCH - |String t|
|00003f50| 6f 6b 65 6e 69 73 65 72 | 0a 23 50 61 72 65 6e 74 |okeniser|.#Parent|
|00003f60| 20 43 41 4c 4c 0a 4f 6e | 20 65 6e 74 72 79 0a 23 | CALL.On| entry.#|
|00003f70| 69 6e 64 65 6e 74 20 32 | 0a 72 31 09 3d 09 53 6f |indent 2|.r1.=.So|
|00003f80| 75 72 63 65 20 73 74 72 | 69 6e 67 2c 20 74 65 72 |urce str|ing, ter|
|00003f90| 6d 69 6e 61 74 65 64 20 | 62 79 20 63 68 72 28 31 |minated |by chr(1|
|00003fa0| 30 29 20 6f 72 20 63 68 | 72 28 31 33 29 0a 72 32 |0) or ch|r(13).r2|
|00003fb0| 09 3d 09 44 65 73 74 69 | 6e 61 74 69 6f 6e 20 62 |.=.Desti|nation b|
|00003fc0| 75 66 66 65 72 20 28 6d | 61 79 20 62 65 20 73 61 |uffer (m|ay be sa|
|00003fd0| 6d 65 20 61 73 20 73 6f | 75 72 63 65 2c 20 75 6e |me as so|urce, un|
|00003fe0| 6c 65 73 73 20 72 65 73 | 75 6c 74 20 69 73 20 6c |less res|ult is l|
|00003ff0| 6f 6e 67 65 72 20 74 68 | 61 6e 20 73 6f 75 72 63 |onger th|an sourc|
|00004000| 65 20 2d 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 73 |e - line| numbers|
|00004010| 20 63 61 6e 20 62 65 29 | 0a 72 33 09 3d 09 4d 4f | can be)|.r3.=.MO|
|00004020| 44 45 0a 72 34 09 3d 09 | 43 4f 4e 53 54 41 0a 72 |DE.r4.=.|CONSTA.r|
|00004030| 31 33 09 3d 09 73 74 61 | 63 6b 20 70 6f 69 6e 74 |13.=.sta|ck point|
|00004040| 65 72 0a 23 69 6e 64 65 | 6e 74 0a 0a 53 6f 6d 65 |er.#inde|nt..Some|
|00004050| 20 74 68 69 6e 67 73 20 | 74 6f 6b 65 6e 69 73 65 | things |tokenise|
|00004060| 20 64 69 66 66 65 72 65 | 6e 74 6c 79 20 64 65 70 | differe|ntly dep|
|00004070| 65 6e 64 69 6e 67 20 6f | 6e 20 77 68 65 72 65 20 |ending o|n where |
|00004080| 74 68 65 79 20 61 72 65 | 2c 20 73 75 63 68 20 61 |they are|, such a|
|00004090| 73 20 74 68 65 20 70 73 | 65 75 64 6f 2d 76 61 72 |s the ps|eudo-var|
|000040a0| 69 61 62 6c 65 73 20 28 | 65 67 20 54 49 4d 45 29 |iables (|eg TIME)|
|000040b0| 20 61 6e 64 20 74 68 69 | 73 20 69 73 20 77 68 65 | and thi|s is whe|
|000040c0| 72 65 20 74 68 65 20 4d | 4f 44 45 20 76 61 6c 75 |re the M|ODE valu|
|000040d0| 65 20 69 73 20 72 65 71 | 75 69 72 65 64 2e 0a 23 |e is req|uired..#|
|000040e0| 69 6e 64 65 6e 74 20 32 | 0a 30 09 3d 09 6c 65 66 |indent 2|.0.=.lef|
|000040f0| 74 2d 6d 6f 64 65 20 28 | 62 65 66 6f 72 65 20 61 |t-mode (|before a|
|00004100| 6e 20 3d 2c 20 6f 72 20 | 61 74 20 73 74 61 72 74 |n =, or |at start|
|00004110| 20 6f 66 20 73 74 61 74 | 65 6d 65 6e 74 29 0a 31 | of stat|ement).1|
|00004120| 09 3d 09 72 69 67 68 74 | 2d 6d 6f 64 65 20 28 69 |.=.right|-mode (i|
|00004130| 6e 20 61 6e 20 65 78 70 | 72 65 73 73 69 6f 6e 29 |n an exp|ression)|
|00004140| 0a 23 69 6e 64 65 6e 74 | 0a 0a 42 61 73 69 63 20 |.#indent|..Basic |
|00004150| 77 69 6c 6c 20 61 6c 73 | 6f 20 63 6f 6e 76 65 72 |will als|o conver|
|00004160| 74 20 69 6e 74 65 67 65 | 72 73 20 77 68 69 63 68 |t intege|rs which|
|00004170| 20 63 6f 75 6c 64 20 62 | 65 20 6c 69 6e 65 20 6e | could b|e line n|
|00004180| 75 6d 62 65 72 73 20 28 | 69 6e 20 30 2e 2e 36 35 |umbers (|in 0..65|
|00004190| 32 37 39 29 20 69 6e 74 | 6f 20 69 6e 74 65 72 6e |279) int|o intern|
|000041a0| 61 6c 20 66 6f 72 6d 61 | 74 2e 20 49 66 20 79 6f |al forma|t. If yo|
|000041b0| 75 20 77 61 6e 74 20 74 | 68 69 73 2c 20 73 65 74 |u want t|his, set|
|000041c0| 20 43 4f 4e 53 54 41 3d | 31 2c 20 61 6e 64 20 75 | CONSTA=|1, and u|
|000041d0| 73 65 20 30 20 74 6f 20 | 73 74 6f 70 20 69 74 2e |se 0 to |stop it.|
|000041e0| 20 53 69 6e 63 65 20 6e | 6f 62 6f 64 79 20 75 73 | Since n|obody us|
|000041f0| 65 73 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 73 2c |es line |numbers,|
|00004200| 20 49 20 77 6f 6e 27 74 | 20 64 6f 63 75 6d 65 6e | I won't| documen|
|00004210| 74 20 74 68 69 73 20 66 | 75 72 74 68 65 72 2e 0a |t this f|urther..|
|00004220| 0a 42 6f 74 68 20 4d 4f | 44 45 20 61 6e 64 20 43 |.Both MO|DE and C|
|00004230| 4f 4e 53 54 41 20 77 69 | 6c 6c 20 62 65 20 75 70 |ONSTA wi|ll be up|
|00004240| 64 61 74 65 64 20 62 79 | 20 74 68 65 20 72 6f 75 |dated by| the rou|
|00004250| 74 69 6e 65 2e 0a 0a 4f | 6e 20 65 78 69 74 0a 23 |tine...O|n exit.#|
|00004260| 69 6e 64 65 6e 74 20 32 | 0a 72 31 09 3d 09 4f 6e |indent 2|.r1.=.On|
|00004270| 65 20 62 79 74 65 20 62 | 65 79 6f 6e 64 20 74 65 |e byte b|eyond te|
|00004280| 72 6d 69 6e 61 74 69 6e | 67 20 43 52 20 6f 66 20 |rminatin|g CR of |
|00004290| 73 6f 75 72 63 65 2e 0a | 72 32 09 3d 09 4f 6e 65 |source..|r2.=.One|
|000042a0| 20 62 79 74 65 20 62 65 | 79 6f 6e 64 20 74 65 72 | byte be|yond ter|
|000042b0| 6d 69 6e 61 74 69 6e 67 | 20 43 52 20 6f 66 20 64 |minating| CR of d|
|000042c0| 65 73 74 69 6e 61 74 69 | 6f 6e 2e 0a 72 33 09 3d |estinati|on..r3.=|
|000042d0| 09 55 70 64 61 74 65 64 | 20 4d 4f 44 45 20 76 61 |.Updated| MODE va|
|000042e0| 6c 75 65 20 28 30 20 6f | 72 20 31 2c 20 61 73 20 |lue (0 o|r 1, as |
|000042f0| 62 65 66 6f 72 65 29 0a | 72 34 09 3d 09 55 70 64 |before).|r4.=.Upd|
|00004300| 61 74 65 64 20 43 4f 4e | 53 54 41 0a 72 35 09 3d |ated CON|STA.r5.=|
|00004310| 09 53 74 61 74 75 73 20 | 69 6e 66 6f 72 6d 61 74 |.Status |informat|
|00004320| 69 6f 6e 2e 0a 20 09 20 | 09 3e 3d 26 31 30 30 30 |ion.. . |.>=&1000|
|00004330| 20 69 6d 70 6c 69 65 73 | 20 6d 69 73 6d 61 74 63 | implies| mismatc|
|00004340| 68 65 64 20 62 72 61 63 | 6b 65 74 73 2e 0a 20 09 |hed brac|kets.. .|
|00004350| 20 09 42 69 74 20 38 20 | 73 65 74 20 69 6d 70 6c | .Bit 8 |set impl|
|00004360| 69 65 73 20 6e 75 6d 62 | 65 72 20 67 72 65 61 74 |ies numb|er great|
|00004370| 65 72 20 74 68 61 6e 20 | 36 35 32 37 39 20 77 61 |er than |65279 wa|
|00004380| 73 20 66 6f 75 6e 2e 64 | 0a 20 09 20 09 28 72 35 |s foun.d|. . .(r5|
|00004390| 20 41 4e 44 20 32 35 35 | 29 3d 31 20 69 6e 64 69 | AND 255|)=1 indi|
|000043a0| 63 61 74 65 73 20 6d 69 | 73 6d 61 74 63 68 65 64 |cates mi|smatched|
|000043b0| 20 73 74 72 69 6e 67 20 | 71 75 6f 74 65 73 2e 0a | string |quotes..|
|000043c0| 23 69 6e 64 65 6e 74 0a | 44 41 54 41 bd 01 00 00 |#indent.|DATA....|
|000043d0| 53 54 52 41 43 43 20 2d | 20 42 61 73 69 63 27 73 |STRACC -| Basic's|
|000043e0| 20 73 74 72 69 6e 67 20 | 61 63 63 75 6d 75 6c 61 | string |accumula|
|000043f0| 74 6f 72 0a 23 50 61 72 | 65 6e 74 20 43 41 4c 4c |tor.#Par|ent CALL|
|00004400| 0a 54 68 69 73 20 76 61 | 6c 75 65 20 69 73 20 61 |.This va|lue is a|
|00004410| 6e 20 6f 66 66 73 65 74 | 20 66 72 6f 6d 20 41 52 |n offset| from AR|
|00004420| 47 50 20 28 72 38 20 61 | 66 74 65 72 20 61 20 43 |GP (r8 a|fter a C|
|00004430| 41 4c 4c 29 2c 20 61 6e | 64 20 74 68 65 20 61 64 |ALL), an|d the ad|
|00004440| 64 72 65 73 73 20 67 69 | 76 65 6e 20 62 79 20 74 |dress gi|ven by t|
|00004450| 68 65 20 73 75 6d 20 6f | 66 20 41 52 47 50 20 61 |he sum o|f ARGP a|
|00004460| 6e 64 20 53 54 52 41 43 | 43 20 28 69 65 2c 20 72 |nd STRAC|C (ie, r|
|00004470| 38 2b 72 31 31 29 20 69 | 73 20 77 68 65 72 65 20 |8+r11) i|s where |
|00004480| 42 61 73 69 63 20 73 74 | 6f 72 65 73 20 73 74 72 |Basic st|ores str|
|00004490| 69 6e 67 73 20 74 68 61 | 74 20 69 74 27 73 20 77 |ings tha|t it's w|
|000044a0| 6f 72 6b 69 6e 67 20 77 | 69 74 68 2e 0a 0a 53 6f |orking w|ith...So|
|000044b0| 2c 20 66 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 64 |, for ex|ample, d|
|000044c0| 75 72 69 6e 67 20 74 68 | 65 20 70 72 6f 63 65 73 |uring th|e proces|
|000044d0| 73 20 6f 66 20 65 76 61 | 6c 75 61 74 69 6e 67 0a |s of eva|luating.|
|000044e0| 23 66 63 6f 64 65 0a 22 | 41 22 2b 22 42 22 2b 22 |#fcode."|A"+"B"+"|
|000044f0| 43 22 2b 22 44 22 2b 22 | 45 22 0a 23 66 0a 74 68 |C"+"D"+"|E".#f.th|
|00004500| 65 20 41 20 67 65 74 73 | 20 73 74 6f 72 65 64 20 |e A gets| stored |
|00004510| 61 74 20 3f 28 72 38 2b | 72 31 31 2b 23 30 29 2c |at ?(r8+|r11+#0),|
|00004520| 20 74 68 65 6e 20 42 20 | 67 65 74 73 20 73 74 6f | then B |gets sto|
|00004530| 72 65 64 20 61 74 20 3f | 28 72 38 2b 72 31 31 2b |red at ?|(r8+r11+|
|00004540| 23 31 29 2c 20 65 74 63 | 2e 2e 2e 0a 0a 53 54 52 |#1), etc|.....STR|
|00004550| 41 43 43 20 69 73 20 77 | 6f 72 74 68 20 6b 6e 6f |ACC is w|orth kno|
|00004560| 77 69 6e 67 20 69 66 20 | 79 6f 75 27 72 65 20 75 |wing if |you're u|
|00004570| 73 69 6e 67 20 3c 45 58 | 50 52 3d 3e 63 61 6c 6c |sing <EX|PR=>call|
|00004580| 65 78 70 72 3e 00 00 00 | 44 41 54 41 26 02 00 00 |expr>...|DATA&...|
|00004590| 43 41 4c 4c 0a 53 79 6e | 74 61 78 3a 0a 23 66 64 |CALL.Syn|tax:.#fd|
|000045a0| 65 66 3b 77 72 61 70 20 | 6f 66 66 0a 20 20 43 41 |ef;wrap |off. CA|
|000045b0| 4c 4c 20 61 64 64 72 65 | 73 73 20 5c 7b 2c 70 61 |LL addre|ss \{,pa|
|000045c0| 72 61 6d 65 74 65 72 7d | 0a 23 66 3b 77 72 61 70 |rameter}|.#f;wrap|
|000045d0| 0a 0a 43 61 6c 6c 20 6d | 61 63 68 69 6e 65 20 63 |..Call m|achine c|
|000045e0| 6f 64 65 20 72 6f 75 74 | 69 6e 65 20 61 74 20 74 |ode rout|ine at t|
|000045f0| 68 65 20 67 69 76 65 6e | 20 61 64 64 72 65 73 73 |he given| address|
|00004600| 2e 0a 42 65 66 6f 72 65 | 20 74 68 65 20 72 6f 75 |..Before| the rou|
|00004610| 74 69 6e 65 20 69 73 20 | 65 6e 74 65 72 65 64 2c |tine is |entered,|
|00004620| 20 74 68 65 20 61 73 73 | 65 6d 62 6c 65 72 20 72 | the ass|embler r|
|00004630| 65 67 69 73 74 65 72 73 | 20 61 72 65 20 73 65 74 |egisters| are set|
|00004640| 20 75 70 20 61 73 20 66 | 6f 6c 6c 6f 77 73 3a 0a | up as f|ollows:.|
|00004650| 23 69 6e 64 65 6e 74 20 | 32 0a 52 30 20 09 3d 09 |#indent |2.R0 .=.|
|00004660| 41 25 0a 52 31 20 09 3d | 09 42 25 0a 52 32 20 09 |A%.R1 .=|.B%.R2 .|
|00004670| 3d 09 43 25 0a 52 33 20 | 09 3d 09 44 25 0a 52 34 |=.C%.R3 |.=.D%.R4|
|00004680| 20 09 3d 09 45 25 0a 52 | 35 20 09 3d 09 46 25 0a | .=.E%.R|5 .=.F%.|
|00004690| 52 36 20 09 3d 09 47 25 | 0a 52 37 20 09 3d 09 48 |R6 .=.G%|.R7 .=.H|
|000046a0| 25 0a 52 38 20 09 3d 09 | 50 6f 69 6e 74 65 72 20 |%.R8 .=.|Pointer |
|000046b0| 74 6f 20 42 41 53 49 43 | 27 73 20 77 6f 72 6b 73 |to BASIC|'s works|
|000046c0| 70 61 63 65 0a 52 39 20 | 09 3d 09 50 6f 69 6e 74 |pace.R9 |.=.Point|
|000046d0| 65 72 20 74 6f 20 3c 70 | 61 72 61 6d 65 74 65 72 |er to <p|arameter|
|000046e0| 20 6c 69 73 74 3d 3e 63 | 61 6c 6c 30 3e 0a 52 31 | list=>c|all0>.R1|
|000046f0| 30 09 3d 09 4e 75 6d 62 | 65 72 20 6f 66 20 70 61 |0.=.Numb|er of pa|
|00004700| 72 61 6d 65 74 65 72 73 | 0a 52 31 31 09 3d 09 50 |rameters|.R11.=.P|
|00004710| 6f 69 6e 74 65 72 20 74 | 6f 20 42 41 53 49 43 27 |ointer t|o BASIC'|
|00004720| 73 20 3c 73 74 72 69 6e | 67 20 61 63 63 75 6d 75 |s <strin|g accumu|
|00004730| 6c 61 74 6f 72 3d 3e 63 | 61 6c 6c 73 74 72 61 63 |lator=>c|allstrac|
|00004740| 63 3e 0a 52 31 32 09 3d | 09 42 41 53 49 43 27 73 |c>.R12.=|.BASIC's|
|00004750| 20 4c 49 4e 45 20 70 6f | 69 6e 74 65 72 0a 52 31 | LINE po|inter.R1|
|00004760| 33 09 3d 09 42 41 53 49 | 43 27 73 20 73 74 61 63 |3.=.BASI|C's stac|
|00004770| 6b 0a 52 31 34 09 3d 09 | 4c 69 6e 6b 20 62 61 63 |k.R14.=.|Link bac|
|00004780| 6b 20 74 6f 20 42 41 53 | 49 43 2c 20 61 6e 64 20 |k to BAS|IC, and |
|00004790| 3c 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 69 6e 66 |<environ|ment inf|
|000047a0| 6f 3d 3e 63 61 6c 6c 33 | 3e 20 70 74 72 2e 00 00 |o=>call3|> ptr...|
|000047b0| 44 41 54 41 90 00 00 00 | 43 41 53 45 0a 53 79 6e |DATA....|CASE.Syn|
|000047c0| 74 61 78 3a 0a 23 66 64 | 65 66 3b 77 72 61 70 20 |tax:.#fd|ef;wrap |
|000047d0| 6f 66 66 0a 20 20 43 41 | 53 45 20 65 78 70 72 20 |off. CA|SE expr |
|000047e0| 4f 46 0a 20 20 20 20 57 | 48 45 4e 20 65 78 70 72 |OF. W|HEN expr|
|000047f0| 5c 7b 2c 65 78 70 72 7d | 5e 20 3a 20 6c 69 6e 65 |\{,expr}|^ : line|
|00004800| 73 0a 20 20 20 20 57 48 | 45 4e 20 65 78 70 72 5c |s. WH|EN expr\|
|00004810| 7b 2c 65 78 70 72 7d 5e | 20 3a 20 6c 69 6e 65 73 |{,expr}^| : lines|
|00004820| 0a 20 20 4f 54 48 45 52 | 57 49 53 45 0a 20 20 20 |. OTHER|WISE. |
|00004830| 20 6c 69 6e 65 73 0a 20 | 20 45 4e 44 43 41 53 45 | lines. | ENDCASE|
|00004840| 44 41 54 41 a0 00 00 00 | 43 48 41 49 4e 0a 53 79 |DATA....|CHAIN.Sy|
|00004850| 6e 74 61 78 3a 0a 23 66 | 64 65 66 3b 77 72 61 70 |ntax:.#f|def;wrap|
|00004860| 20 6f 66 66 0a 20 20 3e | 20 43 48 41 49 4e 20 22 | off. >| CHAIN "|
|00004870| 6e 61 6d 65 22 0a 23 66 | 3b 77 72 61 70 0a 0a 4c |name".#f|;wrap..L|
|00004880| 6f 61 64 20 61 6e 64 20 | 72 75 6e 20 61 20 6e 65 |oad and |run a ne|
|00004890| 77 20 42 61 73 69 63 20 | 70 72 6f 67 72 61 6d 2e |w Basic |program.|
|000048a0| 20 49 66 20 75 73 65 64 | 20 66 72 6f 6d 20 77 69 | If used| from wi|
|000048b0| 74 68 69 6e 20 61 20 42 | 61 73 69 63 20 70 72 6f |thin a B|asic pro|
|000048c0| 67 72 61 6d 2c 20 74 68 | 69 73 20 70 72 6f 67 72 |gram, th|is progr|
|000048d0| 61 6d 20 69 73 20 64 69 | 73 63 61 72 64 65 64 2e |am is di|scarded.|
|000048e0| 44 41 54 41 85 00 00 00 | 43 48 52 24 0a 53 79 6e |DATA....|CHR$.Syn|
|000048f0| 74 61 78 3a 0a 23 66 64 | 65 66 3b 77 72 61 70 20 |tax:.#fd|ef;wrap |
|00004900| 6f 66 66 0a 20 20 78 24 | 20 3d 20 43 48 52 24 20 |off. x$| = CHR$ |
|00004910| 76 61 6c 0a 23 66 3b 77 | 72 61 70 0a 0a 54 68 69 |val.#f;w|rap..Thi|
|00004920| 73 20 66 75 6e 63 74 69 | 6f 6e 20 67 69 76 65 73 |s functi|on gives|
|00004930| 20 74 68 65 20 6f 6e 65 | 20 63 68 61 72 61 63 74 | the one| charact|
|00004940| 65 72 20 73 74 72 69 6e | 67 20 6f 66 20 74 68 65 |er strin|g of the|
|00004950| 20 73 75 70 70 6c 69 65 | 64 20 41 53 43 49 49 20 | supplie|d ASCII |
|00004960| 63 6f 64 65 2e 00 00 00 | 44 41 54 41 61 00 00 00 |code....|DATAa...|
|00004970| 43 49 52 43 4c 45 0a 53 | 79 6e 74 61 78 3a 0a 23 |CIRCLE.S|yntax:.#|
|00004980| 66 64 65 66 3b 77 72 61 | 70 20 6f 66 66 0a 20 20 |fdef;wra|p off. |
|00004990| 43 49 52 43 4c 45 20 5b | 46 49 4c 4c 5d 20 78 2c |CIRCLE [|FILL] x,|
|000049a0| 79 2c 72 0a 23 66 3b 77 | 72 61 70 0a 0a 44 72 61 |y,r.#f;w|rap..Dra|
|000049b0| 77 20 63 69 72 63 6c 65 | 20 6f 75 74 6c 69 6e 65 |w circle| outline|
|000049c0| 20 5b 73 6f 6c 69 64 5d | 2e 00 00 00 44 41 54 41 | [solid]|....DATA|
|000049d0| 4c 00 00 00 43 4c 45 41 | 52 0a 53 79 6e 74 61 78 |L...CLEA|R.Syntax|
|000049e0| 3a 0a 23 66 64 65 66 3b | 77 72 61 70 20 6f 66 66 |:.#fdef;|wrap off|
|000049f0| 0a 20 3e 20 43 4c 45 41 | 52 0a 23 66 3b 77 72 61 |. > CLEA|R.#f;wra|
|00004a00| 70 0a 0a 46 6f 72 67 65 | 74 20 61 6c 6c 20 76 61 |p..Forge|t all va|
|00004a10| 72 69 61 62 6c 65 73 2e | 44 41 54 41 6e 00 00 00 |riables.|DATAn...|
|00004a20| 43 4c 47 0a 53 79 6e 74 | 61 78 3a 0a 23 66 64 65 |CLG.Synt|ax:.#fde|
|00004a30| 66 3b 77 72 61 70 20 6f | 66 66 0a 20 20 43 4c 47 |f;wrap o|ff. CLG|
|00004a40| 0a 23 66 3b 77 72 61 70 | 0a 0a 43 6c 65 61 72 20 |.#f;wrap|..Clear |
|00004a50| 67 72 61 70 68 69 63 73 | 20 73 63 72 65 65 6e 20 |graphics| screen |
|00004a60| 74 6f 20 63 75 72 72 65 | 6e 74 20 67 72 61 70 68 |to curre|nt graph|
|00004a70| 69 63 61 6c 20 62 61 63 | 6b 72 6f 75 6e 64 20 63 |ical bac|kround c|
|00004a80| 6f 6c 6f 75 72 2e 00 00 | 44 41 54 41 81 00 00 00 |olour...|DATA....|
|00004a90| 43 4c 4f 53 45 23 0a 53 | 79 6e 74 61 78 3a 0a 23 |CLOSE#.S|yntax:.#|
|00004aa0| 66 64 65 66 3b 77 72 61 | 70 20 6f 66 66 0a 20 20 |fdef;wra|p off. |
|00004ab0| 43 4c 4f 53 45 23 63 68 | 61 6e 6e 65 6c 0a 23 66 |CLOSE#ch|annel.#f|
|00004ac0| 3b 77 72 61 70 0a 0a 43 | 6c 6f 73 65 20 66 69 6c |;wrap..C|lose fil|
|00004ad0| 65 20 70 72 65 76 69 6f | 75 73 6c 79 20 6f 70 65 |e previo|usly ope|
|00004ae0| 6e 65 64 20 77 69 74 68 | 0a 3c 4f 50 45 4e 49 4e |ned with|.<OPENIN|
|00004af0| 3e 2c 20 3c 4f 50 45 4e | 55 50 3e 20 6f 72 20 3c |>, <OPEN|UP> or <|
|00004b00| 4f 50 45 4e 4f 55 54 3e | 2e 00 00 00 44 41 54 41 |OPENOUT>|....DATA|
|00004b10| 61 00 00 00 43 4c 53 0a | 53 79 6e 74 61 78 3a 0a |a...CLS.|Syntax:.|
|00004b20| 23 66 64 65 66 3b 77 72 | 61 70 20 6f 66 66 0a 20 |#fdef;wr|ap off. |
|00004b30| 20 43 4c 53 0a 23 66 3b | 77 72 61 70 0a 0a 43 6c | CLS.#f;|wrap..Cl|
|00004b40| 65 61 72 20 74 65 78 74 | 20 73 63 72 65 65 6e 20 |ear text| screen |
|00004b50| 74 6f 20 63 75 72 72 65 | 6e 74 20 62 61 63 6b 67 |to curre|nt backg|
|00004b60| 72 6f 75 6e 64 20 63 6f | 6c 6f 75 72 2e 00 00 00 |round co|lour....|
|00004b70| 44 41 54 41 6b 01 00 00 | 43 4f 4c 4f 55 52 0a 23 |DATAk...|COLOUR.#|
|00004b80| 66 64 65 66 3a 43 4f 4c | 4f 55 52 20 61 20 5b 54 |fdef:COL|OUR a [T|
|00004b90| 49 4e 54 20 74 5d 0a 23 | 69 6e 64 65 6e 74 20 32 |INT t].#|indent 2|
|00004ba0| 0a 53 65 74 20 74 65 78 | 74 20 66 6f 72 65 67 72 |.Set tex|t foregr|
|00004bb0| 6f 75 6e 64 20 63 6f 6c | 6f 75 72 5b 61 6e 64 20 |ound col|our[and |
|00004bc0| 74 69 6e 74 5d 20 28 62 | 61 63 6b 67 72 6f 75 6e |tint] (b|ackgroun|
|00004bd0| 64 20 31 32 38 2b 61 29 | 2e 0a 23 69 6e 64 65 6e |d 128+a)|..#inden|
|00004be0| 74 0a 0a 23 66 64 65 66 | 3a 43 4f 4c 4f 55 52 20 |t..#fdef|:COLOUR |
|00004bf0| 61 2c 70 0a 23 69 6e 64 | 65 6e 74 20 32 0a 53 65 |a,p.#ind|ent 2.Se|
|00004c00| 74 20 70 61 6c 65 74 74 | 65 20 65 6e 74 72 79 20 |t palett|e entry |
|00004c10| 66 6f 72 20 6c 6f 67 69 | 63 61 6c 20 63 6f 6c 6f |for logi|cal colo|
|00004c20| 75 72 20 61 20 74 6f 20 | 70 68 79 73 69 63 61 6c |ur a to |physical|
|00004c30| 20 63 6f 6c 6f 75 72 20 | 70 2e 0a 23 69 6e 64 65 | colour |p..#inde|
|00004c40| 6e 74 0a 0a 23 66 64 65 | 66 3a 43 4f 4c 4f 55 52 |nt..#fde|f:COLOUR|
|00004c50| 20 72 2c 67 2c 62 0a 23 | 69 6e 64 65 6e 74 20 32 | r,g,b.#|indent 2|
|00004c60| 0a 73 65 74 20 63 6f 6c | 6f 75 72 20 74 6f 20 72 |.set col|our to r|
|00004c70| 2c 20 67 2c 20 62 2e 0a | 23 69 6e 64 65 6e 74 0a |, g, b..|#indent.|
|00004c80| 0a 23 66 64 65 66 3a 43 | 4f 4c 4f 55 52 20 61 2c |.#fdef:C|OLOUR a,|
|00004c90| 72 2c 67 2c 62 0a 23 69 | 6e 64 65 6e 74 20 32 0a |r,g,b.#i|ndent 2.|
|00004ca0| 53 65 74 20 70 61 6c 65 | 74 74 65 20 65 6e 74 72 |Set pale|tte entr|
|00004cb0| 79 20 66 6f 72 20 61 20 | 74 6f 20 72 2c 20 67 2c |y for a |to r, g,|
|00004cc0| 20 62 20 70 68 79 73 69 | 63 61 6c 20 63 6f 6c 6f | b physi|cal colo|
|00004cd0| 75 72 2e 0a 23 69 6e 64 | 65 6e 74 00 44 41 54 41 |ur..#ind|ent.DATA|
|00004ce0| 65 00 00 00 43 4f 53 0a | 53 79 6e 74 61 78 3a 0a |e...COS.|Syntax:.|
|00004cf0| 23 66 64 65 66 3b 77 72 | 61 70 20 6f 66 66 0a 20 |#fdef;wr|ap off. |
|00004d00| 20 78 20 3d 20 43 4f 53 | 20 76 61 6c 0a 23 66 3b | x = COS| val.#f;|
|00004d10| 77 72 61 70 0a 0a 54 68 | 69 73 20 66 75 6e 63 74 |wrap..Th|is funct|
|00004d20| 69 6f 6e 20 67 69 76 65 | 73 20 74 68 65 20 63 6f |ion give|s the co|
|00004d30| 73 69 6e 65 20 6f 66 20 | 61 20 6e 75 6d 62 65 72 |sine of |a number|
|00004d40| 2e 00 00 00 44 41 54 41 | 86 00 00 00 43 4f 55 4e |....DATA|....COUN|
|00004d50| 54 0a 53 79 6e 74 61 78 | 3a 0a 23 66 64 65 66 3b |T.Syntax|:.#fdef;|
|00004d60| 77 72 61 70 20 6f 66 66 | 0a 20 20 78 20 3d 20 43 |wrap off|. x = C|
|00004d70| 4f 55 4e 54 0a 23 66 3b | 77 72 61 70 0a 0a 54 68 |OUNT.#f;|wrap..Th|
|00004d80| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 67 69 76 65 |is funct|ion give|
|00004d90| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|00004da0| 63 68 61 72 61 63 74 65 | 72 73 20 50 52 49 4e 54 |characte|rs PRINT|
|00004db0| 65 64 20 73 69 6e 63 65 | 20 74 68 65 20 6c 61 73 |ed since| the las|
|00004dc0| 74 20 6e 65 77 6c 69 6e | 65 2e 00 00 44 49 52 24 |t newlin|e...DIR$|
|00004dd0| 18 02 00 00 18 02 00 00 | e4 4f 00 00 48 ff ff ff |........|.O..H...|
|00004de0| 41 e3 5b 79 72 00 00 00 | 13 00 00 00 00 00 00 00 |A.[yr...|........|
|00004df0| 45 4c 4c 49 50 53 45 00 | 58 50 00 00 48 ff ff ff |ELLIPSE.|XP..H...|
|00004e00| 77 c6 99 73 30 00 00 00 | 13 00 00 00 00 00 00 00 |w..s0...|........|
|00004e10| 45 4c 53 45 00 00 00 00 | 88 50 00 00 48 ff ff ff |ELSE....|.P..H...|
|00004e20| a1 eb 5b 79 c2 00 00 00 | 13 00 00 00 00 00 00 00 |..[y....|........|
|00004e30| 45 4e 44 00 4c 51 00 00 | 45 ff ff ff 46 a0 e8 df |END.LQ..|E...F...|
|00004e40| 2b 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 43 |+.......|....ENDC|
|00004e50| 41 53 45 00 78 51 00 00 | 45 ff ff ff 4a a0 e8 df |ASE.xQ..|E...J...|
|00004e60| 24 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 49 |$.......|....ENDI|
|00004e70| 46 00 00 00 9c 51 00 00 | 48 ff ff ff 3b ff 5b 79 |F....Q..|H...;.[y|
|00004e80| 30 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 50 |0.......|....ENDP|
|00004e90| 52 4f 43 00 cc 51 00 00 | 45 ff ff ff 50 a0 e8 df |ROC..Q..|E...P...|
|00004ea0| 2a 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 57 |*.......|....ENDW|
|00004eb0| 48 49 4c 45 00 00 00 00 | f8 51 00 00 48 ff ff ff |HILE....|.Q..H...|
|00004ec0| 96 bd 99 73 4a 00 00 00 | 13 00 00 00 00 00 00 00 |...sJ...|........|
|00004ed0| 45 4e 56 45 4c 4f 50 45 | 00 00 00 00 44 52 00 00 |ENVELOPE|....DR..|
|00004ee0| 48 ff ff ff 82 22 5c 79 | 82 00 00 00 13 00 00 00 |H...."\y|........|
|00004ef0| 00 00 00 00 45 4f 46 00 | c8 52 00 00 48 ff ff ff |....EOF.|.R..H...|
|00004f00| 6e 2e 5c 79 79 00 00 00 | 13 00 00 00 00 00 00 00 |n.\yy...|........|
|00004f10| 45 4f 52 00 44 53 00 00 | 48 ff ff ff 3e 38 5c 79 |EOR.DS..|H...>8\y|
|00004f20| 6c 00 00 00 13 00 00 00 | 00 00 00 00 45 52 4c 00 |l.......|....ERL.|
|00004f30| b0 53 00 00 48 ff ff ff | 6e 3d 5c 79 6d 00 00 00 |.S..H...|n=\ym...|
|00004f40| 13 00 00 00 00 00 00 00 | 45 52 52 00 20 54 00 00 |........|ERR. T..|
|00004f50| 48 ff ff ff d0 aa 5c 79 | 5a 01 00 00 13 00 00 00 |H.....\y|Z.......|
|00004f60| 00 00 00 00 45 52 52 4f | 52 00 00 00 7c 55 00 00 |....ERRO|R...|U..|
|00004f70| 48 ff ff ff a6 bb 5c 79 | 7d 00 00 00 13 00 00 00 |H.....\y|}.......|
|00004f80| 00 00 00 00 45 56 41 4c | 00 00 00 00 fc 55 00 00 |....EVAL|.....U..|
|00004f90| 48 ff ff ff 87 c6 5c 79 | 96 00 00 00 13 00 00 00 |H.....\y|........|
|00004fa0| 00 00 00 00 45 58 50 00 | 94 56 00 00 48 ff ff ff |....EXP.|.V..H...|
|00004fb0| 2c d0 5c 79 a5 00 00 00 | 13 00 00 00 00 00 00 00 |,.\y....|........|
|00004fc0| 45 58 54 00 3c 57 00 00 | 48 ff ff ff 42 db 5b 79 |EXT.<W..|H...B.[y|
|00004fd0| a6 00 00 00 13 00 00 00 | 00 00 00 00 45 44 49 54 |........|....EDIT|
|00004fe0| 00 00 00 00 44 41 54 41 | 72 00 00 00 45 4c 4c 49 |....DATA|r...ELLI|
|00004ff0| 50 53 45 0a 53 79 6e 74 | 61 78 3a 0a 23 66 64 65 |PSE.Synt|ax:.#fde|
|00005000| 66 3b 77 72 61 70 20 6f | 66 66 0a 20 20 45 4c 4c |f;wrap o|ff. ELL|
|00005010| 49 50 53 45 20 5b 46 49 | 4c 4c 5d 20 78 2c 79 2c |IPSE [FI|LL] x,y,|
|00005020| 6d 61 6a 2c 6d 69 6e 5b | 2c 61 6e 67 6c 65 5d 0a |maj,min[|,angle].|
|00005030| 23 66 3b 77 72 61 70 0a | 0a 44 72 61 77 20 65 6c |#f;wrap.|.Draw el|
|00005040| 6c 69 70 73 65 20 6f 75 | 74 6c 69 6e 65 20 5b 73 |lipse ou|tline [s|
|00005050| 6f 6c 69 64 5d 2e 00 00 | 44 41 54 41 30 00 00 00 |olid]...|DATA0...|
|00005060| 45 4c 53 45 0a 50 61 72 | 74 20 6f 66 20 74 68 65 |ELSE.Par|t of the|
|00005070| 20 3c 49 46 3e 20 6f 72 | 20 3c 4f 4e 3e 20 73 74 | <IF> or| <ON> st|
|00005080| 72 75 63 74 75 72 65 2e | 44 41 54 41 c2 00 00 00 |ructure.|DATA....|
|00005090| 45 4e 44 0a 23 66 64 65 | 66 3a 45 4e 44 0a 20 20 |END.#fde|f:END. |
|000050a0| 09 53 74 61 74 65 6d 65 | 6e 74 20 6d 61 72 6b 69 |.Stateme|nt marki|
|000050b0| 6e 67 20 65 6e 64 20 6f | 66 20 70 72 6f 67 72 61 |ng end o|f progra|
|000050c0| 6d 20 65 78 65 63 75 74 | 69 6f 6e 2e 0a 0a 23 66 |m execut|ion...#f|
|000050d0| 64 65 66 3a 45 4e 44 20 | 3d 20 65 78 70 72 65 73 |def:END |= expres|
|000050e0| 73 69 6f 6e 0a 20 20 09 | 41 6c 74 65 72 20 61 6d |sion. .|Alter am|
|000050f0| 6f 75 6e 74 20 6f 66 20 | 6d 65 6d 6f 72 79 20 61 |ount of |memory a|
|00005100| 6c 6c 6f 63 61 74 65 64 | 20 74 6f 20 42 41 53 49 |llocated| to BASI|
|00005110| 43 2e 0a 0a 23 66 64 65 | 66 3a 78 20 3d 20 45 4e |C...#fde|f:x = EN|
|00005120| 44 0a 20 20 09 47 69 76 | 65 73 20 74 68 65 20 65 |D. .Giv|es the e|
|00005130| 6e 64 20 61 64 64 72 65 | 73 73 20 6f 66 20 6d 65 |nd addre|ss of me|
|00005140| 6d 6f 72 79 20 75 73 65 | 64 2e 00 00 44 41 54 41 |mory use|d...DATA|
|00005150| 2b 00 00 00 45 4e 44 43 | 41 53 45 20 20 20 0a 45 |+...ENDC|ASE .E|
|00005160| 6e 64 20 6f 66 20 3c 43 | 41 53 45 3e 20 73 74 72 |nd of <C|ASE> str|
|00005170| 75 63 74 75 72 65 2e 00 | 44 41 54 41 24 00 00 00 |ucture..|DATA$...|
|00005180| 45 4e 44 49 46 0a 45 6e | 64 20 6f 66 20 3c 49 46 |ENDIF.En|d of <IF|
|00005190| 3e 20 73 74 72 75 63 74 | 75 72 65 2e 44 41 54 41 |> struct|ure.DATA|
|000051a0| 30 00 00 00 45 4e 44 50 | 52 4f 43 20 20 20 0a 45 |0...ENDP|ROC .E|
|000051b0| 6e 64 20 6f 66 20 3c 44 | 45 46 3e 20 50 52 4f 43 |nd of <D|EF> PROC|
|000051c0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 2e 44 41 54 41 | definit|ion.DATA|
|000051d0| 2a 00 00 00 45 4e 44 57 | 48 49 4c 45 0a 45 6e 64 |*...ENDW|HILE.End|
|000051e0| 20 6f 66 20 3c 57 48 49 | 4c 45 3e 20 73 74 72 75 | of <WHI|LE> stru|
|000051f0| 63 74 75 72 65 2e 00 00 | 44 41 54 41 4a 00 00 00 |cture...|DATAJ...|
|00005200| 45 4e 56 45 4c 4f 50 45 | 0a 45 4e 56 45 4c 4f 50 |ENVELOPE|.ENVELOP|
|00005210| 45 20 74 61 6b 65 73 20 | 31 34 20 6e 75 6d 65 72 |E takes |14 numer|
|00005220| 69 63 20 70 61 72 61 6d | 65 74 65 72 73 20 73 65 |ic param|eters se|
|00005230| 70 61 72 61 74 65 64 20 | 62 79 20 63 6f 6d 6d 61 |parated |by comma|
|00005240| 73 2e 00 00 44 41 54 41 | 82 00 00 00 45 4f 46 23 |s...DATA|....EOF#|
|00005250| 0a 53 79 6e 74 61 78 3a | 0a 23 66 64 65 66 3b 77 |.Syntax:|.#fdef;w|
|00005260| 72 61 70 20 6f 66 66 0a | 20 20 49 46 20 45 4f 46 |rap off.| IF EOF|
|00005270| 23 63 68 61 6e 6e 65 6c | 20 54 48 45 4e 20 2e 2e |#channel| THEN ..|
|00005280| 2e 0a 23 66 3b 77 72 61 | 70 0a 0a 54 68 69 73 20 |..#f;wra|p..This |
|00005290| 66 75 6e 63 74 69 6f 6e | 20 67 69 76 65 73 20 54 |function| gives T|
|000052a0| 52 55 45 20 69 66 20 61 | 74 20 65 6e 64 20 6f 66 |RUE if a|t end of|
|000052b0| 20 6f 70 65 6e 20 66 69 | 6c 65 3b 20 65 6c 73 65 | open fi|le; else|
|000052c0| 20 46 41 4c 53 45 00 00 | 44 41 54 41 79 00 00 00 | FALSE..|DATAy...|
|000052d0| 45 4f 52 0a 53 79 6e 74 | 61 78 3a 0a 23 66 64 65 |EOR.Synt|ax:.#fde|
|000052e0| 66 3b 77 72 61 70 20 6f | 66 66 0a 20 20 78 20 3d |f;wrap o|ff. x =|
|000052f0| 20 61 20 45 4f 52 20 62 | 0a 23 66 3b 77 72 61 70 | a EOR b|.#f;wrap|
|00005300| 0a 0a 42 69 74 77 69 73 | 65 20 6c 6f 67 69 63 61 |..Bitwis|e logica|
|00005310| 6c 20 65 78 63 6c 75 73 | 69 76 65 2d 6f 72 20 62 |l exclus|ive-or b|
|00005320| 65 74 77 65 65 6e 20 74 | 77 6f 20 69 6e 74 65 67 |etween t|wo integ|
|00005330| 65 72 73 2e 0a 0a 50 72 | 69 6f 72 69 74 79 20 37 |ers...Pr|iority 7|
|00005340| 2e 00 00 00 44 41 54 41 | 6c 00 00 00 45 52 4c 0a |....DATA|l...ERL.|
|00005350| 53 79 6e 74 61 78 3a 0a | 23 66 64 65 66 3b 77 72 |Syntax:.|#fdef;wr|
|00005360| 61 70 20 6f 66 66 0a 20 | 20 78 20 3d 20 45 52 4c |ap off. | x = ERL|
|00005370| 0a 23 66 3b 77 72 61 70 | 0a 0a 54 68 69 73 20 66 |.#f;wrap|..This f|
|00005380| 75 6e 63 74 69 6f 6e 20 | 67 69 76 65 73 20 74 68 |unction |gives th|
|00005390| 65 20 6c 69 6e 65 20 6e | 75 6d 62 65 72 20 6f 66 |e line n|umber of|
|000053a0| 20 74 68 65 20 6c 61 73 | 74 20 65 72 72 6f 72 2e | the las|t error.|
|000053b0| 44 41 54 41 6d 00 00 00 | 45 52 52 0a 53 79 6e 74 |DATAm...|ERR.Synt|
|000053c0| 61 78 3a 0a 23 66 64 65 | 66 3b 77 72 61 70 20 6f |ax:.#fde|f;wrap o|
|000053d0| 66 66 0a 20 20 78 20 3d | 20 45 52 52 0a 23 66 3b |ff. x =| ERR.#f;|
|000053e0| 77 72 61 70 0a 0a 54 68 | 69 73 20 66 75 6e 63 74 |wrap..Th|is funct|
|000053f0| 69 6f 6e 20 67 69 76 65 | 73 20 74 68 65 20 65 72 |ion give|s the er|
|00005400| 72 6f 72 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |ror numb|er of th|
|00005410| 65 20 6c 61 73 74 20 65 | 72 72 6f 72 2e 00 00 00 |e last e|rror....|
|00005420| 44 41 54 41 5a 01 00 00 | 45 52 52 4f 52 0a 23 66 |DATAZ...|ERROR.#f|
|00005430| 64 65 66 3b 77 72 61 70 | 20 6f 66 66 0a 3c 4f 4e |def;wrap| off.<ON|
|00005440| 3e 20 45 52 52 4f 52 20 | 5b 4c 4f 43 41 4c 7c 4f |> ERROR |[LOCAL|O|
|00005450| 46 46 5d 0a 23 66 3b 77 | 72 61 70 0a 20 20 09 44 |FF].#f;w|rap. .D|
|00005460| 65 66 69 6e 65 20 65 72 | 72 6f 72 20 68 61 6e 64 |efine er|ror hand|
|00005470| 6c 65 72 2e 0a 0a 23 66 | 64 65 66 3b 77 72 61 70 |ler...#f|def;wrap|
|00005480| 20 6f 66 66 0a 3c 4c 4f | 43 41 4c 3e 20 45 52 52 | off.<LO|CAL> ERR|
|00005490| 4f 52 0a 23 66 3b 20 77 | 72 61 70 0a 20 20 09 53 |OR.#f; w|rap. .S|
|000054a0| 61 76 65 20 65 72 72 6f | 72 20 63 6f 6e 74 72 6f |ave erro|r contro|
|000054b0| 6c 20 73 74 61 74 75 73 | 20 6f 6e 20 73 74 61 63 |l status| on stac|
|000054c0| 6b 2e 20 4d 75 73 74 20 | 62 65 20 6c 61 73 74 20 |k. Must |be last |
|000054d0| 4c 4f 43 41 4c 20 73 74 | 61 74 65 6d 65 6e 74 2e |LOCAL st|atement.|
|000054e0| 0a 0a 23 66 64 65 66 3b | 77 72 61 70 20 6f 66 66 |..#fdef;|wrap off|
|000054f0| 0a 3c 52 45 53 54 4f 52 | 45 3e 20 45 52 52 4f 52 |.<RESTOR|E> ERROR|
|00005500| 0a 23 66 3b 20 77 72 61 | 70 0a 20 20 09 52 65 73 |.#f; wra|p. .Res|
|00005510| 74 6f 72 65 20 65 72 72 | 6f 72 20 63 6f 6e 74 72 |tore err|or contr|
|00005520| 6f 6c 20 73 74 61 74 75 | 73 20 66 72 6f 6d 20 73 |ol statu|s from s|
|00005530| 74 61 63 6b 2e 0a 0a 23 | 66 64 65 66 3b 77 72 61 |tack...#|fdef;wra|
|00005540| 70 20 6f 66 66 0a 45 52 | 52 4f 52 20 5b 45 58 54 |p off.ER|ROR [EXT|
|00005550| 5d 20 6e 75 6d 62 65 72 | 2c 73 74 72 69 6e 67 0a |] number|,string.|
|00005560| 23 66 3b 20 77 72 61 70 | 0a 20 20 09 43 61 75 73 |#f; wrap|. .Caus|
|00005570| 65 20 61 6e 20 65 72 72 | 6f 72 00 00 44 41 54 41 |e an err|or..DATA|
|00005580| 7d 00 00 00 45 56 41 4c | 0a 53 79 6e 74 61 78 3a |}...EVAL|.Syntax:|
|00005590| 0a 23 66 64 65 66 3b 77 | 72 61 70 20 6f 66 66 0a |.#fdef;w|rap off.|
|000055a0| 20 20 78 20 3d 20 45 56 | 41 4c 20 73 74 72 0a 23 | x = EV|AL str.#|
|000055b0| 66 3b 77 72 61 70 0a 0a | 54 68 69 73 20 66 75 6e |f;wrap..|This fun|
|000055c0| 63 74 69 6f 6e 20 65 76 | 61 6c 75 61 74 65 73 20 |ction ev|aluates |
|000055d0| 61 20 73 74 72 69 6e 67 | 3a 0a 0a 23 66 65 78 3b |a string|:..#fex;|
|000055e0| 77 72 61 70 20 6f 66 66 | 0a 20 20 45 56 41 4c 28 |wrap off|. EVAL(|
|000055f0| 22 32 2a 58 2b 31 22 29 | 2e 00 00 00 44 41 54 41 |"2*X+1")|....DATA|
|00005600| 96 00 00 00 45 58 50 0a | 53 79 6e 74 61 78 3a 0a |....EXP.|Syntax:.|
|00005610| 23 66 64 65 66 3b 77 72 | 61 70 20 6f 66 66 0a 20 |#fdef;wr|ap off. |
|00005620| 20 78 20 3d 20 45 58 50 | 20 76 61 6c 0a 23 66 3b | x = EXP| val.#f;|
|00005630| 77 72 61 70 0a 0a 54 68 | 69 73 20 66 75 6e 63 74 |wrap..Th|is funct|
|00005640| 69 6f 6e 20 67 69 76 65 | 73 20 74 68 65 20 65 78 |ion give|s the ex|
|00005650| 70 6f 6e 65 6e 74 69 61 | 6c 20 6f 66 20 61 20 6e |ponentia|l of a n|
|00005660| 75 6d 62 65 72 2e 0a 0a | 23 66 65 78 0a 20 20 3c |umber...|#fex. <|
|00005670| 4c 4e 3e 28 45 58 50 28 | 78 29 29 20 3d 20 78 0a |LN>(EXP(|x)) = x.|
|00005680| 20 20 45 58 50 28 3c 4c | 4e 3e 28 78 29 29 20 3d | EXP(<L|N>(x)) =|
|00005690| 20 78 00 00 44 41 54 41 | a5 00 00 00 45 58 54 23 | x..DATA|....EXT#|
|000056a0| 0a 23 66 64 65 66 3a 78 | 20 3d 20 45 58 54 23 63 |.#fdef:x| = EXT#c|
|000056b0| 68 61 6e 6e 65 6c 0a 20 | 20 09 47 69 76 65 73 20 |hannel. | .Gives |
|000056c0| 74 68 65 20 6c 65 6e 67 | 74 68 20 28 65 78 74 65 |the leng|th (exte|
|000056d0| 6e 74 29 20 6f 66 20 61 | 6e 20 6f 70 65 6e 20 66 |nt) of a|n open f|
|000056e0| 69 6c 65 2e 0a 0a 23 66 | 64 65 66 3b 77 72 61 70 |ile...#f|def;wrap|
|000056f0| 20 6f 66 66 0a 45 58 54 | 23 63 68 61 6e 6e 65 6c | off.EXT|#channel|
|00005700| 20 3d 20 65 78 70 72 65 | 73 73 69 6f 6e 0a 23 66 | = expre|ssion.#f|
|00005710| 3b 77 72 61 70 0a 20 20 | 09 53 65 74 73 20 74 68 |;wrap. |.Sets th|
|00005720| 65 20 6c 65 6e 67 74 68 | 20 6f 66 20 61 6e 20 6f |e length| of an o|
|00005730| 70 65 6e 20 66 69 6c 65 | 2e 00 00 00 44 41 54 41 |pen file|....DATA|
|00005740| a6 00 00 00 45 44 49 54 | 0a 53 79 6e 74 61 78 3a |....EDIT|.Syntax:|
|00005750| 0a 23 66 64 65 66 3b 77 | 72 61 70 20 6f 66 66 0a |.#fdef;w|rap off.|
|00005760| 20 20 3e 20 45 44 49 54 | 0a 23 66 3b 77 72 61 70 | > EDIT|.#f;wrap|
|00005770| 0a 0a 54 68 69 73 20 63 | 6f 6d 6d 61 6e 64 20 63 |..This c|ommand c|
|00005780| 61 6c 6c 73 20 74 68 65 | 20 41 52 4d 20 42 41 53 |alls the| ARM BAS|
|00005790| 49 43 20 45 64 69 74 6f | 72 2e 0a 0a 4e 6f 74 65 |IC Edito|r...Note|
|000057a0| 3b 20 41 52 4d 42 45 20 | 77 61 73 20 61 20 74 65 |; ARMBE |was a te|
|000057b0| 78 74 20 65 64 69 74 6f | 72 20 75 73 65 64 20 69 |xt edito|r used i|
|000057c0| 6e 20 74 68 65 20 64 61 | 77 6e 20 6f 66 20 74 69 |n the da|wn of ti|
|000057d0| 6d 65 2c 20 62 65 66 6f | 72 65 20 52 69 73 63 4f |me, befo|re RiscO|
|000057e0| 53 2e 00 00 44 49 52 24 | 84 00 00 00 84 00 00 00 |S...DIR$|........|
|000057f0| 68 58 00 00 48 ff ff ff | f1 2a 5d 79 6f 00 00 00 |hX..H...|.*]yo...|
|00005800| 13 00 00 00 00 00 00 00 | 46 41 4c 53 45 00 00 00 |........|FALSE...|
|00005810| d8 58 00 00 48 ff ff ff | c1 33 5d 79 6b 00 00 00 |.X..H...|.3]yk...|
|00005820| 13 00 00 00 00 00 00 00 | 46 49 4c 4c 00 00 00 00 |........|FILL....|
|00005830| 44 59 00 00 48 ff ff ff | 1b 6f 5d 79 79 00 00 00 |DY..H...|.o]yy...|
|00005840| 13 00 00 00 00 00 00 00 | 46 4e 00 00 c0 59 00 00 |........|FN...Y..|
|00005850| 48 ff ff ff da 90 5d 79 | 77 00 00 00 13 00 00 00 |H.....]y|w.......|
|00005860| 00 00 00 00 46 4f 52 00 | 44 41 54 41 6f 00 00 00 |....FOR.|DATAo...|
|00005870| 46 41 4c 53 45 0a 53 79 | 6e 74 61 78 3a 0a 23 66 |FALSE.Sy|ntax:.#f|
|00005880| 64 65 66 3b 77 72 61 70 | 20 6f 66 66 0a 20 20 78 |def;wrap| off. x|
|00005890| 20 3d 20 46 41 4c 53 45 | 0a 23 66 3b 77 72 61 70 | = FALSE|.#f;wrap|
|000058a0| 0a 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|000058b0| 67 69 76 65 73 20 74 68 | 65 20 6c 6f 67 69 63 61 |gives th|e logica|
|000058c0| 6c 20 76 61 6c 75 65 20 | 27 66 61 6c 73 65 27 20 |l value |'false' |
|000058d0| 69 2e 65 2e 20 30 2e 00 | 44 41 54 41 6b 00 00 00 |i.e. 0..|DATAk...|
|000058e0| 46 49 4c 4c 20 20 20 20 | 20 20 0a 53 79 6e 74 61 |FILL | .Synta|
|000058f0| 78 3a 0a 23 66 64 65 66 | 3b 77 72 61 70 20 6f 66 |x:.#fdef|;wrap of|
|00005900| 66 0a 20 20 46 49 4c 4c | 20 5b 42 59 5d 20 78 2c |f. FILL| [BY] x,|
|00005910| 79 0a 23 66 3b 77 72 61 | 70 0a 0a 46 6c 6f 6f 64 |y.#f;wra|p..Flood|
|00005920| 20 66 69 6c 6c 20 66 72 | 6f 6d 20 5b 72 65 6c 61 | fill fr|om [rela|
|00005930| 74 69 76 65 20 74 6f 5d | 20 70 6f 69 6e 74 20 78 |tive to]| point x|
|00005940| 2c 79 2e 00 44 41 54 41 | 79 00 00 00 46 4e 0a 23 |,y..DATA|y...FN.#|
|00005950| 66 64 65 66 3b 77 72 61 | 70 20 6f 66 66 0a 78 20 |fdef;wra|p off.x |
|00005960| 3d 20 46 4e 6e 61 6d 65 | 0a 23 66 3b 77 72 61 70 |= FNname|.#f;wrap|
|00005970| 0a 20 20 09 43 61 6c 6c | 20 61 20 66 75 6e 63 74 |. .Call| a funct|
|00005980| 69 6f 6e 0a 0a 23 66 64 | 65 66 3b 77 72 61 70 20 |ion..#fd|ef;wrap |
|00005990| 6f 66 66 0a 3c 44 45 46 | 3e 20 46 4e 6e 61 6d 65 |off.<DEF|> FNname|
|000059a0| 0a 23 66 3b 77 72 61 70 | 0a 20 20 09 44 65 66 69 |.#f;wrap|. .Defi|
|000059b0| 6e 65 20 61 20 66 75 6e | 63 74 69 6f 6e 00 00 00 |ne a fun|ction...|
|000059c0| 44 41 54 41 77 00 00 00 | 46 4f 52 0a 53 79 6e 74 |DATAw...|FOR.Synt|
|000059d0| 61 78 3a 0a 23 66 64 65 | 66 3b 77 72 61 70 20 6f |ax:.#fde|f;wrap o|
|000059e0| 66 66 0a 20 20 46 4f 52 | 20 76 61 72 69 61 62 6c |ff. FOR| variabl|
|000059f0| 65 20 3d 20 73 74 61 72 | 74 20 54 4f 20 65 6e 64 |e = star|t TO end|
|00005a00| 20 5b 53 54 45 50 20 73 | 74 65 70 5d 0a 20 20 20 | [STEP s|tep]. |
|00005a10| 20 73 74 61 74 65 6d 65 | 6e 74 73 2e 2e 0a 20 20 | stateme|nts... |
|00005a20| 4e 45 58 54 20 5b 76 61 | 72 69 61 62 6c 65 5d 0a |NEXT [va|riable].|
|00005a30| 23 66 3b 77 72 61 70 00 | 44 49 52 24 4c 00 00 00 |#f;wrap.|DIR$L...|
|00005a40| 4c 00 00 00 84 5a 00 00 | 48 ff ff ff 35 20 5f 79 |L....Z..|H...5 _y|
|00005a50| 74 00 00 00 13 00 00 00 | 00 00 00 00 48 45 4c 50 |t.......|....HELP|
|00005a60| 00 00 00 00 f8 5a 00 00 | 48 ff ff ff db 00 a5 79 |.....Z..|H......y|
|00005a70| b5 00 00 00 13 00 00 00 | 00 00 00 00 48 49 4d 45 |........|....HIME|
|00005a80| 4d 00 00 00 44 41 54 41 | 74 00 00 00 48 45 4c 50 |M...DATA|t...HELP|
|00005a90| 0a 53 79 6e 74 61 78 3a | 0a 23 66 64 65 66 3b 77 |.Syntax:|.#fdef;w|
|00005aa0| 72 61 70 20 6f 66 66 0a | 20 20 3e 20 48 45 4c 50 |rap off.| > HELP|
|00005ab0| 20 5b 6b 65 79 77 6f 72 | 64 5d 0a 23 66 3b 77 72 | [keywor|d].#f;wr|
|00005ac0| 61 70 0a 0a 54 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |ap..This| command|
|00005ad0| 20 67 69 76 65 73 20 68 | 65 6c 70 20 6f 6e 20 75 | gives h|elp on u|
|00005ae0| 73 61 67 65 20 6f 66 20 | 74 68 65 20 69 6e 74 65 |sage of |the inte|
|00005af0| 72 70 72 65 74 65 72 2e | 44 41 54 41 b5 00 00 00 |rpreter.|DATA....|
|00005b00| 48 49 4d 45 4d 0a 23 66 | 64 65 66 3b 77 72 61 70 |HIMEM.#f|def;wrap|
|00005b10| 20 6f 66 66 0a 78 20 3d | 20 48 49 4d 45 4d 0a 23 | off.x =| HIMEM.#|
|00005b20| 66 3b 77 72 61 70 0a 20 | 20 09 52 65 61 64 73 20 |f;wrap. | .Reads |
|00005b30| 74 68 65 20 61 64 64 72 | 65 73 73 20 6f 66 20 74 |the addr|ess of t|
|00005b40| 68 65 20 65 6e 64 20 6f | 66 20 42 41 53 49 43 27 |he end o|f BASIC'|
|00005b50| 73 20 6d 65 6d 6f 72 79 | 2e 0a 0a 23 66 64 65 66 |s memory|...#fdef|
|00005b60| 3b 77 72 61 70 20 6f 66 | 66 0a 48 49 4d 45 4d 20 |;wrap of|f.HIMEM |
|00005b70| 3d 20 76 61 6c 0a 23 66 | 3b 77 72 61 70 0a 09 53 |= val.#f|;wrap..S|
|00005b80| 65 74 73 20 74 68 65 20 | 61 64 64 72 65 73 73 20 |ets the |address |
|00005b90| 6f 66 20 74 68 65 20 65 | 6e 64 20 6f 66 20 42 41 |of the e|nd of BA|
|00005ba0| 53 49 43 27 73 20 6d 65 | 6d 6f 72 79 2e 00 00 00 |SIC's me|mory....|
|00005bb0| 44 49 52 24 ec 00 00 00 | ec 00 00 00 9c 5c 00 00 |DIR$....|.....\..|
|00005bc0| 48 ff ff ff e9 0a 5e 79 | 47 01 00 00 13 00 00 00 |H.....^y|G.......|
|00005bd0| 00 00 00 00 49 46 00 00 | e4 5d 00 00 48 ff ff ff |....IF..|.]..H...|
|00005be0| 08 45 5e 79 2a 01 00 00 | 13 00 00 00 00 00 00 00 |.E^y*...|........|
|00005bf0| 49 4e 4b 45 59 00 00 00 | 00 00 00 00 45 ff ff ff |INKEY...|....E...|
|00005c00| 64 72 c9 ed 00 00 00 00 | 13 00 00 00 00 00 00 00 |dr......|........|
|00005c10| 49 4e 4b 45 59 21 78 32 | 34 3e 49 4e 4b 45 59 00 |INKEY!x2|4>INKEY.|
|00005c20| 10 5f 00 00 48 ff ff ff | d3 56 5e 79 e6 00 00 00 |._..H...|.V^y....|
|00005c30| 13 00 00 00 00 00 00 00 | 49 4e 50 55 54 00 00 00 |........|INPUT...|
|00005c40| f8 5f 00 00 48 ff ff ff | 07 6c 5e 79 78 00 00 00 |._..H...|.l^yx...|
|00005c50| 13 00 00 00 00 00 00 00 | 49 4e 53 54 41 4c 4c 00 |........|INSTALL.|
|00005c60| 70 60 00 00 48 ff ff ff | 8b 7e 5e 79 b2 00 00 00 |p`..H...|.~^y....|
|00005c70| 13 00 00 00 00 00 00 00 | 49 4e 53 54 52 00 00 00 |........|INSTR...|
|00005c80| 24 61 00 00 48 ff ff ff | 21 8f 5e 79 b4 00 00 00 |$a..H...|!.^y....|
|00005c90| 13 00 00 00 00 00 00 00 | 49 4e 54 00 44 41 54 41 |........|INT.DATA|
|00005ca0| 47 01 00 00 49 46 20 20 | 20 20 20 20 20 20 0a 53 |G...IF | .S|
|00005cb0| 69 6e 67 6c 65 20 6c 69 | 6e 65 20 69 66 3a 0a 23 |ingle li|ne if:.#|
|00005cc0| 66 64 65 66 3b 77 72 61 | 70 20 6f 66 66 0a 20 20 |fdef;wra|p off. |
|00005cd0| 49 46 20 65 78 70 72 65 | 73 73 69 6f 6e 20 5b 54 |IF expre|ssion [T|
|00005ce0| 48 45 4e 5d 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |HEN] sta|tements |
|00005cf0| 5b 45 4c 53 45 20 73 74 | 61 74 65 6d 65 6e 74 73 |[ELSE st|atements|
|00005d00| 5d 2e 0a 23 66 3b 77 72 | 61 70 0a 0a 42 6c 6f 63 |]..#f;wr|ap..Bloc|
|00005d10| 6b 20 69 66 3a 0a 23 66 | 64 65 66 3b 77 72 61 70 |k if:.#f|def;wrap|
|00005d20| 20 6f 66 66 0a 20 20 49 | 46 20 65 78 70 72 65 73 | off. I|F expres|
|00005d30| 73 69 6f 6e 20 54 48 45 | 4e 0a 20 20 20 20 6c 69 |sion THE|N. li|
|00005d40| 6e 65 73 0a 20 20 5b 45 | 4c 53 45 20 6c 69 6e 65 |nes. [E|LSE line|
|00005d50| 73 5d 0a 20 20 45 4e 44 | 49 46 0a 0a 23 66 3b 77 |s]. END|IF..#f;w|
|00005d60| 72 61 70 0a 0a 59 6f 75 | 20 73 68 6f 75 6c 64 20 |rap..You| should |
|00005d70| 62 65 20 63 61 72 65 66 | 75 6c 20 6e 6f 74 20 74 |be caref|ul not t|
|00005d80| 6f 20 67 65 74 20 61 20 | 73 70 61 63 65 20 61 66 |o get a |space af|
|00005d90| 74 65 72 20 7b 66 63 6f | 64 65 3a 54 48 45 4e 7d |ter {fco|de:THEN}|
|00005da0| 20 69 6e 20 61 20 62 6c | 6f 63 6b 2d 69 66 2c 20 | in a bl|ock-if, |
|00005db0| 73 69 6e 63 65 20 42 41 | 53 49 43 20 74 68 65 6e |since BA|SIC then|
|00005dc0| 20 77 69 6c 6c 20 74 72 | 65 61 74 20 69 74 20 61 | will tr|eat it a|
|00005dd0| 73 20 61 20 73 69 6e 67 | 6c 65 2d 6c 69 6e 65 20 |s a sing|le-line |
|00005de0| 49 46 2e 00 44 41 54 41 | 2a 01 00 00 49 4e 4b 45 |IF..DATA|*...INKE|
|00005df0| 59 0a 23 66 64 65 66 3a | 78 20 3d 20 49 4e 4b 45 |Y.#fdef:|x = INKE|
|00005e00| 59 20 30 20 74 6f 20 33 | 32 37 36 37 0a 20 20 09 |Y 0 to 3|2767. .|
|00005e10| 46 75 6e 63 74 69 6f 6e | 20 77 61 69 74 73 20 6e |Function| waits n|
|00005e20| 72 20 63 65 6e 74 69 73 | 65 63 6f 6e 64 73 20 74 |r centis|econds t|
|00005e30| 6f 20 72 65 61 64 20 63 | 68 61 72 61 63 74 65 72 |o read c|haracter|
|00005e40| 2e 0a 0a 23 66 64 65 66 | 3a 78 20 3d 20 49 4e 4b |...#fdef|:x = INK|
|00005e50| 45 59 20 2d 32 35 35 20 | 74 6f 20 2d 31 0a 20 20 |EY -255 |to -1. |
|00005e60| 09 46 75 6e 63 74 69 6f | 6e 20 63 68 65 63 6b 73 |.Functio|n checks|
|00005e70| 20 73 70 65 63 69 66 69 | 63 20 6b 65 79 20 66 6f | specifi|c key fo|
|00005e80| 72 20 54 52 55 45 7c 46 | 41 4c 53 45 2e 0a 0a 23 |r TRUE|F|ALSE...#|
|00005e90| 66 64 65 66 3a 78 20 3d | 20 49 4e 4b 45 59 20 2d |fdef:x =| INKEY -|
|00005ea0| 32 35 36 0a 20 20 09 46 | 75 6e 63 74 69 6f 6e 20 |256. .F|unction |
|00005eb0| 67 69 76 65 73 20 6f 70 | 65 72 61 74 69 6e 67 20 |gives op|erating |
|00005ec0| 73 79 73 74 65 6d 20 6e | 75 6d 62 65 72 2e 0a 0a |system n|umber...|
|00005ed0| 4e 6f 74 65 3a 0a 7b 66 | 63 6f 64 65 3a 49 4e 4b |Note:.{f|code:INK|
|00005ee0| 45 59 24 20 76 61 6c 7d | 20 69 73 20 74 68 65 20 |EY$ val}| is the |
|00005ef0| 73 61 6d 65 20 61 73 20 | 7b 66 63 6f 64 65 3a 43 |same as |{fcode:C|
|00005f00| 48 52 24 28 49 4e 4b 45 | 59 20 6e 6f 29 7d 00 00 |HR$(INKE|Y no)}..|
|00005f10| 44 41 54 41 e6 00 00 00 | 49 4e 50 55 54 0a 23 66 |DATA....|INPUT.#f|
|00005f20| 64 65 66 3b 77 72 61 70 | 20 6f 66 66 0a 49 4e 50 |def;wrap| off.INP|
|00005f30| 55 54 20 5b 4c 49 4e 45 | 5d 5b 27 7c 3c 54 41 42 |UT [LINE|]['|<TAB|
|00005f40| 3e 7c 3c 53 50 43 3e 5d | 5b 22 64 69 73 70 6c 61 |>|<SPC>]|["displa|
|00005f50| 79 20 73 74 72 69 6e 67 | 22 5d 5b 2c 7c 3b 5d 76 |y string|"][,|;]v|
|00005f60| 61 72 69 61 62 6c 65 0a | 23 66 3b 77 72 61 70 0a |ariable.|#f;wrap.|
|00005f70| 20 20 09 49 6e 70 75 74 | 20 66 72 6f 6d 20 75 73 | .Input| from us|
|00005f80| 65 72 2e 20 43 61 6e 20 | 61 6c 73 6f 20 62 65 20 |er. Can |also be |
|00005f90| 77 72 69 74 74 65 6e 20 | 61 73 20 7b 66 63 6f 64 |written |as {fcod|
|00005fa0| 65 3a 4c 49 4e 45 20 49 | 4e 50 55 54 20 2e 2e 2e |e:LINE I|NPUT ...|
|00005fb0| 7d 0a 0a 23 66 64 65 66 | 3a 49 4e 50 55 54 23 63 |}..#fdef|:INPUT#c|
|00005fc0| 68 61 6e 6e 65 6c 2c 6c | 69 73 74 20 6f 66 20 76 |hannel,l|ist of v|
|00005fd0| 61 72 69 61 62 6c 65 73 | 0a 20 20 09 49 6e 70 75 |ariables|. .Inpu|
|00005fe0| 74 20 64 61 74 61 20 66 | 72 6f 6d 20 6f 70 65 6e |t data f|rom open|
|00005ff0| 20 66 69 6c 65 2e 00 00 | 44 41 54 41 78 00 00 00 | file...|DATAx...|
|00006000| 49 4e 53 54 41 4c 4c 0a | 53 79 6e 74 61 78 3a 0a |INSTALL.|Syntax:.|
|00006010| 23 66 64 65 66 3b 77 72 | 61 70 20 6f 66 66 0a 20 |#fdef;wr|ap off. |
|00006020| 20 49 4e 53 54 41 4c 4c | 20 66 69 6c 65 6e 61 6d | INSTALL| filenam|
|00006030| 65 0a 23 66 3b 77 72 61 | 70 0a 0a 50 65 72 6d 61 |e.#f;wra|p..Perma|
|00006040| 6e 65 6e 74 6c 79 20 69 | 6e 73 74 61 6c 6c 20 61 |nently i|nstall a|
|00006050| 20 66 75 6e 63 74 69 6f | 6e 20 61 6e 64 20 70 72 | functio|n and pr|
|00006060| 6f 63 65 64 75 72 65 20 | 6c 69 62 72 61 72 79 2e |ocedure |library.|
|00006070| 44 41 54 41 b2 00 00 00 | 49 4e 53 54 52 0a 53 79 |DATA....|INSTR.Sy|
|00006080| 6e 74 61 78 3a 0a 23 66 | 64 65 66 3b 77 72 61 70 |ntax:.#f|def;wrap|
|00006090| 20 6f 66 66 0a 20 20 78 | 20 3d 20 49 4e 53 54 52 | off. x| = INSTR|
|000060a0| 28 73 74 72 69 6e 67 2c | 73 75 62 20 73 74 72 69 |(string,|sub stri|
|000060b0| 6e 67 20 5b 2c 73 74 61 | 72 74 20 70 6f 73 5d 29 |ng [,sta|rt pos])|
|000060c0| 0a 23 66 3b 77 72 61 70 | 0a 0a 46 69 6e 64 20 73 |.#f;wrap|..Find s|
|000060d0| 75 62 20 73 74 72 69 6e | 67 20 70 6f 73 69 74 69 |ub strin|g positi|
|000060e0| 6f 6e 2e 0a 20 20 0a 23 | 66 65 78 3b 77 72 61 70 |on.. .#|fex;wrap|
|000060f0| 20 6f 66 66 0a 20 20 49 | 4e 53 54 52 28 22 41 42 | off. I|NSTR("AB|
|00006100| 43 22 2c 22 43 22 29 20 | 3d 20 33 0a 20 20 49 4e |C","C") |= 3. IN|
|00006110| 53 54 52 28 22 41 42 43 | 22 2c 22 58 22 29 20 3d |STR("ABC|","X") =|
|00006120| 20 30 00 00 44 41 54 41 | b4 00 00 00 49 4e 54 0a | 0..DATA|....INT.|
|00006130| 53 79 6e 74 61 78 3a 0a | 23 66 64 65 66 3b 77 72 |Syntax:.|#fdef;wr|
|00006140| 61 70 20 6f 66 66 0a 20 | 20 78 20 3d 20 49 4e 54 |ap off. | x = INT|
|00006150| 20 76 61 6c 0a 23 66 3b | 77 72 61 70 0a 0a 54 68 | val.#f;|wrap..Th|
|00006160| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 67 69 76 65 |is funct|ion give|
|00006170| 73 20 74 68 65 20 6e 65 | 61 72 65 73 74 20 69 6e |s the ne|arest in|
|00006180| 74 65 67 65 72 20 6c 65 | 73 73 20 74 68 61 6e 20 |teger le|ss than |
|00006190| 6f 72 20 65 71 75 61 6c | 20 74 6f 20 74 68 65 20 |or equal| to the |
|000061a0| 6e 75 6d 62 65 72 3a 0a | 0a 23 66 65 78 3b 77 72 |number:.|.#fex;wr|
|000061b0| 61 70 20 6f 66 66 0a 20 | 20 49 4e 54 20 20 33 2e |ap off. | INT 3.|
|000061c0| 31 34 20 3d 20 20 33 0a | 20 20 49 4e 54 20 2d 33 |14 = 3.| INT -3|
|000061d0| 2e 31 34 20 3d 20 2d 34 | 44 49 52 24 0c 00 00 00 |.14 = -4|DIR$....|
|000061e0| 0c 00 00 00 44 49 52 24 | 0c 00 00 00 0c 00 00 00 |....DIR$|........|
|000061f0| 44 49 52 24 a0 01 00 00 | a0 01 00 00 90 63 00 00 |DIR$....|.....c..|
|00006200| 48 ff ff ff 7d a3 5e 79 | 2e 01 00 00 13 00 00 00 |H...}.^y|........|
|00006210| 00 00 00 00 4c 45 46 54 | 21 78 32 34 00 00 00 00 |....LEFT|!x24....|
|00006220| c0 64 00 00 48 ff ff ff | 24 b5 5e 79 85 00 00 00 |.d..H...|$.^y....|
|00006230| 13 00 00 00 00 00 00 00 | 4c 45 4e 00 48 65 00 00 |........|LEN.He..|
|00006240| 48 ff ff ff 91 cd 5e 79 | 76 00 00 00 13 00 00 00 |H.....^y|v.......|
|00006250| 00 00 00 00 4c 45 54 00 | c0 65 00 00 48 ff ff ff |....LET.|.e..H...|
|00006260| b4 1c a4 79 7f 00 00 00 | 13 00 00 00 00 00 00 00 |...y....|........|
|00006270| 4c 49 42 52 41 52 59 00 | 40 66 00 00 48 ff ff ff |LIBRARY.|@f..H...|
|00006280| bb 60 a4 79 c6 00 00 00 | 13 00 00 00 00 00 00 00 |.`.y....|........|
|00006290| 4c 49 4e 45 00 00 00 00 | 08 67 00 00 48 ff ff ff |LINE....|.g..H...|
|000062a0| e0 9b a4 79 93 01 00 00 | 13 00 00 00 00 00 00 00 |...y....|........|
|000062b0| 4c 49 53 54 00 00 00 00 | 9c 68 00 00 48 ff ff ff |LIST....|.h..H...|
|000062c0| a7 99 a4 79 f1 00 00 00 | 13 00 00 00 00 00 00 00 |...y....|........|
|000062d0| 4c 49 53 54 4f 00 00 00 | 90 69 00 00 48 ff ff ff |LISTO...|.i..H...|
|000062e0| 8a 2b e5 79 a4 00 00 00 | 13 00 00 00 00 00 00 00 |.+.y....|........|
|000062f0| 4c 4e 00 00 34 6a 00 00 | 48 ff ff ff 6e b8 a4 79 |LN..4j..|H...n..y|
|00006300| 75 00 00 00 13 00 00 00 | 00 00 00 00 4c 4f 41 44 |u.......|....LOAD|
|00006310| 00 00 00 00 ac 6a 00 00 | 48 ff ff ff 01 ca a4 79 |.....j..|H......y|
|00006320| 10 01 00 00 13 00 00 00 | 00 00 00 00 4c 4f 43 41 |........|....LOCA|
|00006330| 4c 00 00 00 bc 6b 00 00 | 48 ff ff ff 70 d2 a4 79 |L....k..|H...p..y|
|00006340| a0 00 00 00 13 00 00 00 | 00 00 00 00 4c 4f 47 00 |........|....LOG.|
|00006350| 5c 6c 00 00 48 ff ff ff | 02 00 a5 79 b9 00 00 00 |\l..H...|...y....|
|00006360| 13 00 00 00 00 00 00 00 | 4c 4f 4d 45 4d 00 00 00 |........|LOMEM...|
|00006370| 18 6d 00 00 48 ff ff ff | b5 11 a5 79 5e 00 00 00 |.m..H...|...y^...|
|00006380| 13 00 00 00 00 00 00 00 | 4c 56 41 52 00 00 00 00 |........|LVAR....|
|00006390| 44 41 54 41 2e 01 00 00 | 4c 45 46 54 24 0a 23 66 |DATA....|LEFT$.#f|
|000063a0| 64 65 66 3a 78 24 20 3d | 20 4c 45 46 54 24 28 73 |def:x$ =| LEFT$(s|
|000063b0| 74 72 69 6e 67 2c 6e 72 | 29 0a 20 20 09 47 69 76 |tring,nr|). .Giv|
|000063c0| 65 73 20 6c 65 66 74 6d | 6f 73 74 20 6e 72 20 6f |es leftm|ost nr o|
|000063d0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 66 72 6f |f charac|ters fro|
|000063e0| 6d 20 73 74 72 69 6e 67 | 2e 0a 20 20 0a 23 66 64 |m string|.. .#fd|
|000063f0| 65 66 3a 78 24 20 3d 20 | 4c 45 46 54 24 28 73 74 |ef:x$ = |LEFT$(st|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
